# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 678401992 0
# Node ID 71090e169ac8f4358dddc841bf254215111b32e0
# Parent  7fede845e304417a00ec30f2ac8de9d3009b21ed
*** empty log message ***

diff -r 7fede845e304 -r 71090e169ac8 lisp/map-ynp.el
--- 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))