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

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 3c5bdb52e1a8e7d2d9789aab49bf63c609ddac91..525be1d2c5c5d507e24367e4541411aebaf152df 100644 (file)
--- 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)