Mercurial > emacs
comparison lisp/help.el @ 23922:81d1dacd379e
(describe-function-1): Say "keymap", not "Lisp macro",
if this is an autoloaded keymap.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Mon, 21 Dec 1998 10:03:01 +0000 |
| parents | e9fe8ed71303 |
| children | 5ab992b6ca59 |
comparison
equal
deleted
inserted
replaced
| 23921:81a6345fd5e8 | 23922:81d1dacd379e |
|---|---|
| 618 "a Lisp macro") | 618 "a Lisp macro") |
| 619 ((eq (car-safe def) 'mocklisp) | 619 ((eq (car-safe def) 'mocklisp) |
| 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 ""))) |
| 629 (setq need-close t) | 630 (setq need-close t) |
| 630 (princ "(")) | 631 (princ "(")) |