Mercurial > emacs
changeset 10058:5803ff60cf47
(map-y-or-n-p): Handle exit-prefix as definition of char.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 23 Nov 1994 09:11:05 +0000 |
| parents | 460fecc93446 |
| children | c1b138be512e |
| files | lisp/map-ynp.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/map-ynp.el Wed Nov 23 09:10:36 1994 +0000 +++ b/lisp/map-ynp.el Wed Nov 23 09:11:05 1994 +0000 @@ -164,7 +164,7 @@ (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))