martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(map-y-or-n-p): Handle help-char values other than chars.

Browse Source
This commit is contained in:
Richard M. Stallman
1993-11-11 04:43:49 +00:00
parent 5c03767e4f
commit b26f0e4ea7
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/map-ynp.el
View File

@@ -121,12 +121,12 @@ Returns the number of actions taken."
(let ((cursor-in-echo-area (not no-cursor-in-echo-area)))
(message "%s(y, n, !, ., q, %sor %s) "
prompt user-keys
(key-description (char-to-string help-char)))
(key-description (vector 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))
(key-description (vector help-char))
(single-key-description char))
(setq def (lookup-key map (vector char)))
(cond ((eq def 'exit)
@@ -205,7 +205,7 @@ the current %s and exit."
(t
;; Random char.
(message "Type %s for help."
(key-description (char-to-string help-char)))
(key-description (vector help-char)))
(beep)
(sit-for 1)
(setq next (` (lambda ()