From dea22c45247ed4c31ed518898fd22bc053606fbf Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 21 Dec 1997 01:46:14 +0000 Subject: [PATCH] (apropos, apropos-command): Ignore symbols that have apropos-inhibit property. --- lisp/apropos.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/apropos.el b/lisp/apropos.el index 3c5bdb52e1a..525be1d2c5c 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -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) -- 2.39.2