Mercurial > emacs

changeset 308:71090e169ac8

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 Mon, 01 Jul 1991 20:59:52 +0000
parents 7fede845e304
children 9db65d28c80f
files lisp/map-ynp.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/map-ynp.el	Mon Jul 01 18:06:13 1991 +0000
+++ b/lisp/map-ynp.el	Mon Jul 01 20:59:52 1991 +0000
@@ -120,7 +120,7 @@
 		     (if (funcall prompter elt)
 			 (progn
 			   (funcall actor elt)
-			   (setq actions (1+ actions)))))
+			   (setq actions (1+ actions))))))
 		  ((= ?? char)
 		   (setq unread-command-char help-char)
 		   (setq next (` (function (lambda ()
@@ -134,7 +134,7 @@
 		   (sit-for 1)
 		   (setq next (` (function (lambda ()
 					     (setq next (, next))
-					     t))))))))
+					     t)))))))
 	(if (eval prompt)
 	    (progn
 	      (funcall actor (car list))