[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 6a95676: Substitute command keys in display-local-help

From: Stefan Kangas
Subject: master 6a95676: Substitute command keys in display-local-help
Date: Thu, 27 Aug 2020 08:05:03 -0400 (EDT)

branch: master
commit 6a95676cce0c4fa634f11f7f7679077063983f6c
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    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:
 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 e184c78..1d9e051 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 
 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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]