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)

diff --git a/lisp/info.el b/lisp/info.el
index f438493415510a6ad7878c578b26561996b47203..02ba8b0eff968350e1dad1e48d54eeb7c4eb99fa 100644 (file)
--- 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))))))
 \f
 (defvar Info-link-keymap
   (let ((keymap (make-sparse-keymap)))