diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/helper.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/map-ynp.el | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/helper.el b/lisp/emacs-lisp/helper.el index 8a173219545..01dbc686437 100644 --- a/lisp/emacs-lisp/helper.el +++ b/lisp/emacs-lisp/helper.el @@ -47,7 +47,7 @@ ;;"f" #'Helper-describe-function ;;"v" #'Helper-describe-variable "?" #'Helper-help-options - (key-description (char-to-string help-char)) #'Helper-help-options) + (help-key) #'Helper-help-options) (fset 'Helper-help-map Helper-help-map) (defun Helper-help-scroller () diff --git a/lisp/emacs-lisp/map-ynp.el b/lisp/emacs-lisp/map-ynp.el index 952497032a2..fc9912f189e 100644 --- a/lisp/emacs-lisp/map-ynp.el +++ b/lisp/emacs-lisp/map-ynp.el @@ -173,7 +173,7 @@ The function's value is the number of actions taken." "%s(\\`y', \\`n', \\`!', \\`.', \\`q', %sor \\`%s') " minibuffer-prompt-properties) prompt user-keys - (key-description (vector help-char))))) + (help-key)))) (if minibuffer-auto-raise (raise-frame (window-frame (minibuffer-window)))) (unwind-protect @@ -198,7 +198,7 @@ The function's value is the number of actions taken." (format "%s(\\`y', \\`n', \\`!', \\`.', \\`q', %sor \\`%s') %s" prompt user-keys - (key-description (vector help-char)) + (help-key) (if (equal char -1) "[end-of-keyboard-macro]" (single-key-description char)))))) @@ -279,7 +279,7 @@ Type \\`SPC' or \\`y' to %s the current %s; (message (substitute-command-keys (format "Type \\`%s' for help" - (key-description (vector help-char))))) + (help-key)))) (beep) (sit-for 1) (funcall try-again)))) |