Mercurial > emacs
comparison lisp/apropos.el @ 57750:5d7aec33a1ba
(apropos-macrop): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 27 Oct 2004 17:46:33 +0000 |
| parents | 91f663907945 |
| children | b41192af5b23 e24e2e78deda |
comparison
equal
deleted
inserted
replaced
| 57749:08eb19d9ee4b | 57750:5d7aec33a1ba |
|---|---|
| 873 (prog1 apropos-accumulator | 873 (prog1 apropos-accumulator |
| 874 (setq apropos-accumulator ()))) ; permit gc | 874 (setq apropos-accumulator ()))) ; permit gc |
| 875 | 875 |
| 876 | 876 |
| 877 (defun apropos-macrop (symbol) | 877 (defun apropos-macrop (symbol) |
| 878 "T if SYMBOL is a Lisp macro." | 878 "Return t if SYMBOL is a Lisp macro." |
| 879 (and (fboundp symbol) | 879 (and (fboundp symbol) |
| 880 (consp (setq symbol | 880 (consp (setq symbol |
| 881 (symbol-function symbol))) | 881 (symbol-function symbol))) |
| 882 (or (eq (car symbol) 'macro) | 882 (or (eq (car symbol) 'macro) |
| 883 (if (eq (car symbol) 'autoload) | 883 (if (eq (car symbol) 'autoload) |