From 81eb8fcd8dc8ac7692ec125014f4ec2fe14d5f25 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 9 Mar 1993 21:17:46 +0000 Subject: (map-y-or-n-p): Handle `quit' as answer. --- lisp/map-ynp.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'lisp/map-ynp.el') 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)) -- cgit v1.2.1