mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-24 10:38:38 +00:00
(apropos-command): Include macros.
This commit is contained in:
parent
26f435507b
commit
554fde6ed7
@ -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.
|
||||
|
@ -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)))
|
||||
|
Loading…
Reference in New Issue
Block a user