aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorRoland McGrath1991-07-01 20:59:52 +0000
committerRoland McGrath1991-07-01 20:59:52 +0000
commitbed40c39a14811a658b884596f4c1f843a299b6a (patch)
tree7fd02c34a6c0cd6d528a1b0cc71ec5bf3ad7716a /lisp
parent01a453133b73e130ac2415f07f6e9f63794d9efb (diff)
downloademacs-bed40c39a14811a658b884596f4c1f843a299b6a.tar.gz
emacs-bed40c39a14811a658b884596f4c1f843a299b6a.zip
*** empty log message ***
Diffstat (limited to 'lisp')
-rw-r--r--lisp/map-ynp.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el
index b562234e9a7..f55d6e62713 100644
--- a/lisp/map-ynp.el
+++ b/lisp/map-ynp.el
@@ -120,7 +120,7 @@ Returns the number of actions taken."
120 (if (funcall prompter elt) 120 (if (funcall prompter elt)
121 (progn 121 (progn
122 (funcall actor elt) 122 (funcall actor elt)
123 (setq actions (1+ actions))))) 123 (setq actions (1+ actions))))))
124 ((= ?? char) 124 ((= ?? char)
125 (setq unread-command-char help-char) 125 (setq unread-command-char help-char)
126 (setq next (` (function (lambda () 126 (setq next (` (function (lambda ()
@@ -134,7 +134,7 @@ Returns the number of actions taken."
134 (sit-for 1) 134 (sit-for 1)
135 (setq next (` (function (lambda () 135 (setq next (` (function (lambda ()
136 (setq next (, next)) 136 (setq next (, next))
137 t)))))))) 137 t)))))))
138 (if (eval prompt) 138 (if (eval prompt)
139 (progn 139 (progn
140 (funcall actor (car list)) 140 (funcall actor (car list))