diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-05-15 18:05:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-05-15 18:05:42 +0000 |
| commit | 9bb84c3b143761cd55bf98de553ab03e8ea9cb62 (patch) | |
| tree | 452e4c6655f660e9175fe6c005018f4b79f04e19 /lisp/map-ynp.el | |
| parent | e0bf1b8ffefde175d6d22192488c1f2b4a2e5ee1 (diff) | |
| download | emacs-9bb84c3b143761cd55bf98de553ab03e8ea9cb62.tar.gz | |
(map-y-or-n-p): Show the answers in the echo area.
Diffstat (limited to 'lisp/map-ynp.el')
| -rw-r--r-- | lisp/map-ynp.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el index 22e9973cb01..c64b1c78ae1 100644 --- a/lisp/map-ynp.el +++ b/lisp/map-ynp.el @@ -118,6 +118,11 @@ Returns the number of actions taken." 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)))) |