Commit 0af46a8b authored by Roland McGrath's avatar Roland McGrath
Browse files

*** empty log message ***

parent c888bcc3
...@@ -115,31 +115,34 @@ Returns the number of actions taken." ...@@ -115,31 +115,34 @@ Returns the number of actions taken."
(setq actions (1+ actions) (setq actions (1+ actions)
next (function (lambda () nil)))) next (function (lambda () nil))))
((= ?! char) ((= ?! char)
;; Act on all following objects. ;; Act on this and all following objects.
(if (eval (funcall prompter elt))
(progn
(funcall actor elt)
(setq actions (1+ actions))))
(while (setq elt (funcall next)) (while (setq elt (funcall next))
(if (funcall prompter elt) (if (eval (funcall prompter elt))
(progn (progn
(funcall actor elt) (funcall actor elt)
(setq actions (1+ actions)))))) (setq actions (1+ actions))))))
((= ?? char) ((= ?? char)
(setq unread-command-char help-char) (setq unread-command-char help-char)
(setq next (` (function (lambda () (setq next (` (lambda ()
(setq next (, next)) (setq next '(, next))
t))))) '(, elt)))))
(t (t
;; Random char. ;; Random char.
(message "Type %s for help." (message "Type %s for help."
(key-description (char-to-string help-char))) (key-description (char-to-string help-char)))
(beep) (beep)
(sit-for 1) (sit-for 1)
(setq next (` (function (lambda () (setq next (` (lambda ()
(setq next (, next)) (setq next '(, next))
t))))))) '(, elt)))))))
(if (eval prompt) (if (eval prompt)
(progn (progn
(funcall actor (car list)) (funcall actor elt)
(setq actions (1+ actions))))) (setq actions (1+ actions))))))
(setq list (cdr list)))
;; Clear the last prompt from the minibuffer. ;; Clear the last prompt from the minibuffer.
(message "") (message "")
;; Return the number of actions that were taken. ;; Return the number of actions that were taken.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment