diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-05-28 11:22:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-05-28 11:22:39 +0000 |
| commit | 9658c9c33714eca359d2e0390941aa8d97ae7e7f (patch) | |
| tree | ed2ac7ae20282b593dc97844b00d14560f50b7de | |
| parent | 31b55e801d203be3366ba84627048c3ae664ad27 (diff) | |
| download | emacs-9658c9c33714eca359d2e0390941aa8d97ae7e7f.tar.gz | |
(map-y-or-n-p): No special handling for exit-prefix.
In help string, mention C-g but not ESC.
| -rw-r--r-- | lisp/map-ynp.el | 6 |
1 files 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 |