(map-y-or-n-p): Show the answers in the echo area.

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))))