From 4ce29ad9016980b7d81702bed20dca53b1810557 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 21 Mar 2024 21:43:38 -0400 Subject: [PATCH] * lisp/help.el (help--analyze-key): Use `help-fns-function-name` (cherry picked from commit 60c9702972f3cef9e6dbbce5eaad8cc90ea7f8e8) --- lisp/help.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 2.39.5