Mercurial > emacs

changeset 319:828a35833c4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Roland McGrath <roland@gnu.org>
date Tue, 09 Jul 1991 16:28:08 +0000
parents 036865305387
children 81130da351be
files lisp/map-ynp.el
diffstat 1 files changed, 14 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/map-ynp.el	Tue Jul 09 01:26:26 1991 +0000
+++ b/lisp/map-ynp.el	Tue Jul 09 16:28:08 1991 +0000
@@ -115,31 +115,34 @@
 		   (setq actions (1+ actions)
 			 next (function (lambda () nil))))
 		  ((= ?! 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))
-		     (if (funcall prompter elt)
+		     (if (eval (funcall prompter elt))
 			 (progn
 			   (funcall actor elt)
 			   (setq actions (1+ actions))))))
 		  ((= ?? char)
 		   (setq unread-command-char help-char)
-		   (setq next (` (function (lambda ()
-					     (setq next (, next))
-					     t)))))
+		   (setq next (` (lambda ()
+				   (setq next '(, next))
+				   '(, elt)))))
 		  (t
 		   ;; Random char.
 		   (message "Type %s for help."
 			    (key-description (char-to-string help-char)))
 		   (beep)
 		   (sit-for 1)
-		   (setq next (` (function (lambda ()
-					     (setq next (, next))
-					     t)))))))
+		   (setq next (` (lambda ()
+				   (setq next '(, next))
+				   '(, elt)))))))
 	(if (eval prompt)
 	    (progn
-	      (funcall actor (car list))
-	      (setq actions (1+ actions)))))
-      (setq list (cdr list)))
+	      (funcall actor elt)
+	      (setq actions (1+ actions))))))
     ;; Clear the last prompt from the minibuffer.
     (message "")
     ;; Return the number of actions that were taken.