From 554fde6ed7a93c11c587eb58679b23f93df4b8ca Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 26 Mar 2008 03:31:42 +0000 Subject: [PATCH] (apropos-command): Include macros. --- lisp/ChangeLog | 4 ++++ lisp/apropos.el | 7 +++++-- 2 files changed, 9 insertions(+), 2 deletions(-) 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))) -- 2.39.5