diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-03-26 03:31:42 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-03-26 03:31:42 +0000 |
| commit | 554fde6ed7a93c11c587eb58679b23f93df4b8ca (patch) | |
| tree | 21309c60e8ecfb8d05033ae80b958dc7d1620780 /lisp/apropos.el | |
| parent | 26f435507b4605a14493a2e38e9b0aa0f2464bc0 (diff) | |
| download | emacs-554fde6ed7a93c11c587eb58679b23f93df4b8ca.tar.gz | |
(apropos-command): Include macros.
Diffstat (limited to 'lisp/apropos.el')
| -rw-r--r-- | lisp/apropos.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 0ca6248ea55..a2bbdce88ea 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -456,7 +456,10 @@ while a list of strings is used as a word list." (setq apropos-accumulator (apropos-internal apropos-regexp (or var-predicate - (if do-all 'functionp 'commandp)))) + ;; We used to use `functionp' here, but this + ;; rules out macros. `fboundp' rules in + ;; keymaps, but it seems harmless. + (if do-all 'fboundp 'commandp)))) (let ((tem apropos-accumulator)) (while tem (if (or (get (car tem) 'apropos-inhibit) @@ -470,7 +473,7 @@ while a list of strings is used as a word list." (setq symbol (car p)) (setq score (apropos-score-symbol symbol)) (unless var-predicate - (if (functionp symbol) + (if (fboundp symbol) (if (setq doc (documentation symbol t)) (progn (setq score (+ score (apropos-score-doc doc))) |