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

[Stefan Kangas]

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:
    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 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 
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