From: Stefan Kangas <stefankangas@gmail.com>
Date: Thu, 27 Aug 2020 11:38:37 +0000 (+0200)
Subject: Substitute command keys in display-local-help
X-Git-Tag: emacs-28.0.90~6356
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6a95676cce0c4fa634f11f7f7679077063983f6c;p=emacs.git

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

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