Mercurial > emacs
comparison lisp/map-ynp.el @ 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 | 62c0e8317ce2 |
| children | 019a9e941699 |
comparison
equal
deleted
inserted
replaced
| 10057:460fecc93446 | 10058:5803ff60cf47 |
|---|---|
| 162 ((eq def 'act-and-exit) | 162 ((eq def 'act-and-exit) |
| 163 ;; Act on the object and then exit. | 163 ;; Act on the object and then exit. |
| 164 (funcall actor elt) | 164 (funcall actor elt) |
| 165 (setq actions (1+ actions) | 165 (setq actions (1+ actions) |
| 166 next (function (lambda () nil)))) | 166 next (function (lambda () nil)))) |
| 167 ((eq def 'quit) | 167 ((or (eq def 'quit) (eq def 'exit-prefix)) |
| 168 (setq quit-flag t) | 168 (setq quit-flag t) |
| 169 (setq next (` (lambda () | 169 (setq next (` (lambda () |
| 170 (setq next '(, next)) | 170 (setq next '(, next)) |
| 171 '(, elt))))) | 171 '(, elt))))) |
| 172 ((eq def 'automatic) | 172 ((eq def 'automatic) |