master 9eed00c8e5a: Handle anonymous commands in C-h K

[Stefan Kangas]

branch: master
commit 9eed00c8e5ac697203dc24331c60bd2bb0b90b5d
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Handle anonymous commands in C-h K
    
    * lisp/info.el (Info-goto-emacs-key-command-node): Don't call
    Info-goto-emacs-command-node for anonymous commands.  (Bug#61505)
---
 lisp/info.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/info.el b/lisp/info.el
index f4384934155..02ba8b0eff9 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -4733,8 +4733,11 @@ the variable `Info-file-list-for-emacs'."
                (eq command 'execute-extended-command))
           (Info-goto-emacs-command-node
            (read-command "Find documentation for command: ")))
+          ((symbolp command)
+           (Info-goto-emacs-command-node command))
          (t
-          (Info-goto-emacs-command-node command)))))
+          (message "%s invokes an anonymous command"
+                    (key-description key))))))
 
 (defvar Info-link-keymap
   (let ((keymap (make-sparse-keymap)))