diff options
| author | Richard M. Stallman | 2003-05-28 11:22:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-05-28 11:22:39 +0000 |
| commit | 9658c9c33714eca359d2e0390941aa8d97ae7e7f (patch) | |
| tree | ed2ac7ae20282b593dc97844b00d14560f50b7de | |
| parent | 31b55e801d203be3366ba84627048c3ae664ad27 (diff) | |
| download | emacs-9658c9c33714eca359d2e0390941aa8d97ae7e7f.tar.gz emacs-9658c9c33714eca359d2e0390941aa8d97ae7e7f.zip | |
(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." | |||
| 175 | (funcall actor elt) | 175 | (funcall actor elt) |
| 176 | (setq actions (1+ actions) | 176 | (setq actions (1+ actions) |
| 177 | next (function (lambda () nil)))) | 177 | next (function (lambda () nil)))) |
| 178 | ((or (eq def 'quit) (eq def 'exit-prefix)) | 178 | ((eq def 'quit) |
| 179 | (setq quit-flag t) | 179 | (setq quit-flag t) |
| 180 | (setq next `(lambda () | 180 | (setq next `(lambda () |
| 181 | (setq next ',next) | 181 | (setq next ',next) |
| @@ -201,8 +201,8 @@ Returns the number of actions taken." | |||
| 201 | (format "Type SPC or `y' to %s the current %s; | 201 | (format "Type SPC or `y' to %s the current %s; |
| 202 | DEL or `n' to skip the current %s; | 202 | DEL or `n' to skip the current %s; |
| 203 | RET or `q' to exit (skip all remaining %s); | 203 | RET or `q' to exit (skip all remaining %s); |
| 204 | ! to %s all remaining %s; | 204 | C-g to quit (cancel the operation); |
| 205 | ESC or `q' to exit;\n" | 205 | ! to %s all remaining %s;\n" |
| 206 | action object object objects action | 206 | action object object objects action |
| 207 | objects) | 207 | objects) |
| 208 | (mapconcat (function | 208 | (mapconcat (function |