# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 882668774 0
# Node ID 048c8ad9bcaad89173be173d1b35424218fcaa11
# Parent  ae6b11cadfc6a650e7dfaf937dec73c12a783f1b
(apropos, apropos-command): Ignore symbols that have apropos-inhibit property.

diff -r ae6b11cadfc6 -r 048c8ad9bcaa lisp/apropos.el
--- a/lisp/apropos.el	Sun Dec 21 01:45:08 1997 +0000
+++ b/lisp/apropos.el	Sun Dec 21 01:46:14 1997 +0000
@@ -169,6 +169,11 @@
 						     (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 @@
 				     (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)