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 | e494b950c1b612ca6492d68e95f0c2946be26fdc (patch) | |
| tree | d65cc4867a521955596d6333ec1321c01d53d05f /lisp/map-ynp.el | |
| parent | 5ba4299d2e21897e32e1573eb844c3005c660c00 (diff) | |
| download | emacs-e494b950c1b612ca6492d68e95f0c2946be26fdc.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)) |