Commit 31ba9d39 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 66afa119
......@@ -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))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment