From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 21 Dec 1997 01:46:14 +0000 (+0000)
Subject: (apropos, apropos-command): Ignore symbols that have apropos-inhibit property.
X-Git-Tag: emacs-20.3~2594
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dea22c45247ed4c31ed518898fd22bc053606fbf;p=emacs.git

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

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)