From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 28 May 2003 11:22:39 +0000 (+0000)
Subject: (map-y-or-n-p): No special handling for exit-prefix.
X-Git-Tag: ttn-vms-21-2-B4~9899
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9658c9c33714eca359d2e0390941aa8d97ae7e7f;p=emacs.git

(map-y-or-n-p): No special handling for exit-prefix.
In help string, mention C-g but not ESC.
---

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