Mercurial > emacs
changeset 2793:b88e105bdbf7
(map-y-or-n-p): Show the answers in the echo area.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 15 May 1993 18:05:42 +0000 |
| parents | 4dae9952e40f |
| children | 9163e4e4752c |
| files | lisp/map-ynp.el |
| diffstat | 1 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/map-ynp.el Sat May 15 04:13:27 1993 +0000 +++ b/lisp/map-ynp.el Sat May 15 18:05:42 1993 +0000 @@ -118,6 +118,11 @@ prompt user-keys (key-description (char-to-string help-char))) (setq char (read-event))) + ;; Show the answer to the question. + (message "%s(y, n, !, ., q, %sor %s) %s" + prompt user-keys + (key-description (char-to-string help-char)) + (single-key-description char)) (setq def (lookup-key map (vector char))) (cond ((eq def 'exit) (setq next (function (lambda () nil))))