From: Stefan Monnier Date: Wed, 26 Mar 2008 03:31:42 +0000 (+0000) Subject: (apropos-command): Include macros. X-Git-Tag: emacs-pretest-23.0.90~6913 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=554fde6ed7a93c11c587eb58679b23f93df4b8ca;p=emacs.git (apropos-command): Include macros. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3357b5e5340..b97c37f1f9b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-03-26 Stefan Monnier + + * apropos.el (apropos-command): Include macros. + 2008-03-26 Glenn Morris * calendar/cal-bahai.el: Require calendar, not cal-julian. 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)))