diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-12-21 01:46:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-12-21 01:46:14 +0000 |
| commit | dea22c45247ed4c31ed518898fd22bc053606fbf (patch) | |
| tree | 02db46647dec1b6cece55eef1d5b5783e7894f47 /lisp/apropos.el | |
| parent | 6c95fd390b43fe8bc9635cc332e9f00547e780ca (diff) | |
| download | emacs-dea22c45247ed4c31ed518898fd22bc053606fbf.tar.gz | |
(apropos, apropos-command): Ignore symbols that have apropos-inhibit property.
Diffstat (limited to 'lisp/apropos.el')
| -rw-r--r-- | lisp/apropos.el | 10 |
1 files changed, 10 insertions, 0 deletions
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) |