(apropos-command): Include macros.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3357b5e53402c5162dcc02a0104bb967f290384a..b97c37f1f9b1821f7efd3aa6ad7aba518c649db6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-03-26  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * apropos.el (apropos-command): Include macros.
+
 2008-03-26  Glenn Morris  <rgm@gnu.org>
 
        * calendar/cal-bahai.el: Require calendar, not cal-julian.

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 0ca6248ea556aa830ece773ec47b8d59ff4283e7..a2bbdce88eaf26a5e5b12c0498fa20fb544472f7 100644 (file)
--- 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)))