*** empty log message ***

* empty log message *
bed40c39 · Roland McGrath · 01a45313 · bed40c39
Commit bed40c39 authored Jul 01, 1991 by Roland McGrath
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/map-ynp.el lisp/map-ynp.el +2 -2

No files found.
--- a/lisp/map-ynp.el
+++ b/lisp/map-ynp.el
@@ -120,7 +120,7 @@ Returns the number of actions taken."
 		     (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 @@ Returns the number of actions taken."
 		   (sit-for 1)
 		   (setq next (` (function (lambda ()
 					     (setq next (, next))
-					     t))))))))
+					     t)))))))
 	(if (eval prompt)
 	    (progn
 	      (funcall actor (car list))