aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndreas Schwab1998-12-21 10:03:01 +0000
committerAndreas Schwab1998-12-21 10:03:01 +0000
commitaed2b2cd476e0b22830488356b53f8d64f559c1b (patch)
tree6459dea022dc9d8b80c2691adef1ac2285631029
parenta3cec380f565c9d6be16439900eb38b87baca4b1 (diff)
downloademacs-aed2b2cd476e0b22830488356b53f8d64f559c1b.tar.gz
emacs-aed2b2cd476e0b22830488356b53f8d64f559c1b.zip
(describe-function-1): Say "keymap", not "Lisp macro",
if this is an autoloaded keymap.
-rw-r--r--lisp/help.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/help.el b/lisp/help.el
index ddc67c43432..051c56e65ba 100644
--- 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."
620 "a mocklisp function") 620 "a mocklisp function")
621 ((eq (car-safe def) 'autoload) 621 ((eq (car-safe def) 'autoload)
622 (setq file-name (nth 1 def)) 622 (setq file-name (nth 1 def))
623 (format "%s autoloaded Lisp %s" 623 (format "%s autoloaded %s"
624 (if (commandp def) "an interactive" "an") 624 (if (commandp def) "an interactive" "an")
625 (if (nth 4 def) "macro" "function") 625 (if (eq (nth 4 def) 'keymap) "keymap"
626 (if (nth 4 def) "Lisp macro" "Lisp function"))
626 )) 627 ))
627 (t ""))) 628 (t "")))
628 (when (and parens (not (equal string ""))) 629 (when (and parens (not (equal string "")))