From 9658c9c33714eca359d2e0390941aa8d97ae7e7f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 28 May 2003 11:22:39 +0000 Subject: [PATCH] (map-y-or-n-p): No special handling for exit-prefix. In help string, mention C-g but not ESC. --- lisp/map-ynp.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el index 59007c1f21d..2fa97f163d7 100644 --- a/lisp/map-ynp.el +++ b/lisp/map-ynp.el @@ -175,7 +175,7 @@ Returns the number of actions taken." (funcall actor elt) (setq actions (1+ actions) next (function (lambda () nil)))) - ((or (eq def 'quit) (eq def 'exit-prefix)) + ((eq def 'quit) (setq quit-flag t) (setq next `(lambda () (setq next ',next) @@ -201,8 +201,8 @@ Returns the number of actions taken." (format "Type SPC or `y' to %s the current %s; DEL or `n' to skip the current %s; RET or `q' to exit (skip all remaining %s); -! to %s all remaining %s; -ESC or `q' to exit;\n" +C-g to quit (cancel the operation); +! to %s all remaining %s;\n" action object object objects action objects) (mapconcat (function -- 2.39.5