Mercurial > emacs

diff lisp/map-ynp.el @ 2793:b88e105bdbf7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 f692546797f9
children cb593618786e
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))))