mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

(map-y-or-n-p): No special handling for exit-prefix.

Browse Source 
In help string, mention C-g but not ESC.
This commit is contained in:
Richard M. Stallman 2003-05-28 11:22:39 +00:00
parent 31b55e801d
commit 9658c9c337
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/map-ynp.el
View File

@ -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