diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2025-03-17 18:45:20 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2025-03-18 00:16:29 +0100 |
| commit | 69210eb84e7c3074c339b8aa2f380f66a80ae61b (patch) | |
| tree | de7de4486bb944ebec277bde8fc9001b5bfbf5e9 /lisp/emacs-lisp/map-ynp.el | |
| parent | 49e019fbbc61e22167f0a15a3b1983d98bce7be6 (diff) | |
| download | emacs-69210eb84e7c3074c339b8aa2f380f66a80ae61b.tar.gz emacs-69210eb84e7c3074c339b8aa2f380f66a80ae61b.tar.bz2 emacs-69210eb84e7c3074c339b8aa2f380f66a80ae61b.zip | |
Use 'help-key' function in more places
* lisp/dired-aux.el (dired-query):
* lisp/emacs-lisp/helper.el (Helper-help-map):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p): Use 'help-key'.
* lisp/net/tramp-cmds.el (tramp-rename-files):
* lisp/which-key.el (which-key--next-page-hint): Prefer 'help-key'
when available.
* lisp/help.el (help-key): Simplify.
* etc/symbol-releases.eld: Add 'help-key'.
Diffstat (limited to 'lisp/emacs-lisp/map-ynp.el')
| -rw-r--r-- | lisp/emacs-lisp/map-ynp.el | 6 |
1 files changed, 3 insertions, 3 deletions
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)))) |