mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(apropos, apropos-command): Ignore symbols that have apropos-inhibit property.

Browse source
This commit is contained in:
Richard M. Stallman 1997-12-21 01:46:14 +00:00
parent 6c95fd390b
commit dea22c4524
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/apropos.el
View file

@ -169,6 +169,11 @@ variables. If JUST-VARS is non-nil, show only variables."
(user-variable-p symbol)))
(if just-vars 'user-variable-p
'commandp))))
(let ((tem apropos-accumulator))
(while tem
(if (get (car tem) 'apropos-inhibit)
(setq apropos-accumulator (delq (car tem) apropos-accumulator)))
(setq tem (cdr tem))))
(if (apropos-print
t
(lambda (p)
@ -208,6 +213,11 @@ Returns list of symbols and documentation found."
(boundp symbol)
(facep symbol)
(symbol-plist symbol))))))
(let ((tem apropos-accumulator))
(while tem
(if (get (car tem) 'apropos-inhibit)
(setq apropos-accumulator (delq (car tem) apropos-accumulator)))
(setq tem (cdr tem))))
(apropos-print
(or do-all apropos-do-all)
(lambda (p)