# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1054120959 0
# Node ID 2363196f1b1c79ef19bf175d5bdac48b496f866d
# Parent  55a88703765dad9a899858d37dee771007182544
(map-y-or-n-p): No special handling for exit-prefix.
In help string, mention C-g but not ESC.

diff -r 55a88703765d -r 2363196f1b1c lisp/map-ynp.el
--- a/lisp/map-ynp.el	Wed May 28 11:21:36 2003 +0000
+++ b/lisp/map-ynp.el	Wed May 28 11:22:39 2003 +0000
@@ -175,7 +175,7 @@
 			  (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 @@
 				(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