diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-11-11 04:43:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-11-11 04:43:49 +0000 |
| commit | b26f0e4ea7c12f91b6f8ea569fcd20863f338dd9 (patch) | |
| tree | b1814bde37fe335bc3e38f057f69d3c0e2366a3a /lisp/map-ynp.el | |
| parent | 5c03767e4f546bd426d24e616016b346fe0b015b (diff) | |
| download | emacs-b26f0e4ea7c12f91b6f8ea569fcd20863f338dd9.tar.gz | |
(map-y-or-n-p): Handle help-char values other than chars.
Diffstat (limited to 'lisp/map-ynp.el')
| -rw-r--r-- | lisp/map-ynp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el index 0e3f219c23c..48dcbc35950 100644 --- a/lisp/map-ynp.el +++ b/lisp/map-ynp.el @@ -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 () |