(describe-function-1): Say "keymap", not "Lisp macro",

if this is an autoloaded keymap.

(describe-function-1): Say "keymap", not "Lisp macro",
if this is an autoloaded keymap.
aed2b2cd · Andreas Schwab · a3cec380 · aed2b2cd
Commit aed2b2cd authored Dec 21, 1998 by Andreas Schwab
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

lisp/help.el lisp/help.el +3 -2

No files found.
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -620,9 +620,10 @@ It can also be nil, if the definition is not associated with any file."
 		 "a mocklisp function")
 		((eq (car-safe def) 'autoload)
 		 (setq file-name (nth 1 def))
-		 (format "%s autoloaded Lisp %s"
+		 (format "%s autoloaded %s"
 			 (if (commandp def) "an interactive" "an")
-			 (if (nth 4 def) "macro" "function")
+			 (if (eq (nth 4 def) 'keymap) "keymap"
+			   (if (nth 4 def) "Lisp macro" "Lisp function"))
 			 ))
 		(t "")))
    (when (and parens (not (equal string "")))