diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-03-09 21:17:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-03-09 21:17:46 +0000 |
| commit | 81eb8fcd8dc8ac7692ec125014f4ec2fe14d5f25 (patch) | |
| tree | be1e4c50826d533b3334ca98690f24a1dfbf15c6 /lisp/map-ynp.el | |
| parent | 0a2eb25e0527bb91575a3bdc4b978fad1f2c46c5 (diff) | |
| download | emacs-81eb8fcd8dc8ac7692ec125014f4ec2fe14d5f25.tar.gz | |
(map-y-or-n-p): Handle `quit' as answer.
Diffstat (limited to 'lisp/map-ynp.el')
| -rw-r--r-- | lisp/map-ynp.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el index e79e47fa664..c3cce3abc07 100644 --- a/lisp/map-ynp.el +++ b/lisp/map-ynp.el @@ -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)) |