diff options
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 |