diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2020-08-27 13:38:37 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2020-08-27 14:04:36 +0200 |
| commit | 6a95676cce0c4fa634f11f7f7679077063983f6c (patch) | |
| tree | ca4e124333e822ff1c540a9995c2803c0436a145 /lisp | |
| parent | ed3c971534283b9af2f13e71bf975ed448f2c225 (diff) | |
| download | emacs-6a95676cce0c4fa634f11f7f7679077063983f6c.tar.gz emacs-6a95676cce0c4fa634f11f7f7679077063983f6c.tar.bz2 emacs-6a95676cce0c4fa634f11f7f7679077063983f6c.zip | |
Substitute command keys in display-local-help
* lisp/help-at-pt.el (display-local-help): Pass 'help-echo' property
through 'substitute-command-keys' before displaying to be consistent
with tooltips. (Bug#37628)
This was discussed in:
https://lists.gnu.org/archive/html/emacs-devel/2019-10/msg00090.html
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/help-at-pt.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/help-at-pt.el b/lisp/help-at-pt.el index e184c782640..1d9e051a8cf 100644 --- a/lisp/help-at-pt.el +++ b/lisp/help-at-pt.el @@ -92,13 +92,16 @@ the `kbd-help' property at point. If `kbd-help' does not produce a string, but the `help-echo' property does, then that string is printed instead. +The string is passed through `substitute-command-keys' before it +is displayed. + A numeric argument ARG prevents display of a message in case there is no help. While ARG can be used interactively, it is mainly meant for use from Lisp." (interactive "P") (let ((help (help-at-pt-kbd-string))) (if help - (message "%s" help) + (message "%s" (substitute-command-keys help)) (if (not arg) (message "No local help at point"))))) (defvar help-at-pt-timer nil |