Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

(map-y-or-n-p): Handle `quit' as answer.

Browse source
This commit is contained in:
Richard M. Stallman 1993-03-09 21:17:46 +00:00
parent 0a2eb25e05
commit 81eb8fcd8d
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/map-ynp.el
View file

@ -111,6 +111,7 @@ Returns the number of actions taken."
(setq prompt (funcall prompter elt))
(if (stringp prompt)
(progn
(setq quit-flag nil)
;; Prompt the user about this object.
(let ((cursor-in-echo-area t))
(message "%s(y, n, !, ., q, %sor %s) "
@ -132,6 +133,11 @@ Returns the number of actions taken."
(funcall actor elt)
(setq actions (1+ actions)
next (function (lambda () nil))))
((eq def 'quit)
(setq quit-flag t)
(setq next (` (lambda ()
(setq next '(, next))
'(, elt)))))
((eq def 'automatic)
;; Act on this and all following objects.
(if (eval (funcall prompter elt))