Commit dea22c45 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 6c95fd39
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment