diff options
| author | Andreas Schwab | 1998-12-21 10:03:01 +0000 |
|---|---|---|
| committer | Andreas Schwab | 1998-12-21 10:03:01 +0000 |
| commit | aed2b2cd476e0b22830488356b53f8d64f559c1b (patch) | |
| tree | 6459dea022dc9d8b80c2691adef1ac2285631029 | |
| parent | a3cec380f565c9d6be16439900eb38b87baca4b1 (diff) | |
| download | emacs-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.el | 5 |
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 ""))) |