From 6a95676cce0c4fa634f11f7f7679077063983f6c Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 27 Aug 2020 13:38:37 +0200 Subject: [PATCH] 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 --- lisp/help-at-pt.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 -- 2.39.2