diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-11-23 09:11:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-11-23 09:11:05 +0000 |
| commit | 59f4a401d618048e0976879e9e8c1b6db90a5dac (patch) | |
| tree | 50d774d6f2e95de5e2773245af1778b3e3df804d /lisp/map-ynp.el | |
| parent | d9121bc0e6d3571e2ee2cda20199a985e594b5e4 (diff) | |
| download | emacs-59f4a401d618048e0976879e9e8c1b6db90a5dac.tar.gz | |
(map-y-or-n-p): Handle exit-prefix as definition of char.
Diffstat (limited to 'lisp/map-ynp.el')
| -rw-r--r-- | lisp/map-ynp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el index 99e081bc9e9..34b93cbfce8 100644 --- a/lisp/map-ynp.el +++ b/lisp/map-ynp.el @@ -164,7 +164,7 @@ Returns the number of actions taken." (funcall actor elt) (setq actions (1+ actions) next (function (lambda () nil)))) - ((eq def 'quit) + ((or (eq def 'quit) (eq def 'exit-prefix)) (setq quit-flag t) (setq next (` (lambda () (setq next '(, next)) |