From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 22 Mar 2024 01:43:38 +0000 (-0400)
Subject: * lisp/help.el (help--analyze-key): Use `help-fns-function-name`
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4ce29ad9016980b7d81702bed20dca53b1810557;p=emacs.git

* lisp/help.el (help--analyze-key): Use `help-fns-function-name`

(cherry picked from commit 60c9702972f3cef9e6dbbce5eaad8cc90ea7f8e8)
---

diff --git a/lisp/help.el b/lisp/help.el
index 037c887eedb..1610707e7b9 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -930,7 +930,9 @@ in the selected window."
      (let ((key-desc (help-key-description key untranslated)))
        (if (help--binding-undefined-p defn)
            (format "%s%s is undefined" key-desc mouse-msg)
-         (format "%s%s runs the command %S" key-desc mouse-msg defn)))
+         (format "%s%s runs the command %s" key-desc mouse-msg
+                 (if (symbolp defn) (prin1-to-string defn)
+                   (help-fns-function-name defn)))))
      defn event mouse-msg)))
 
 (defun help--filter-info-list (info-list i)