Mercurial > emacs

changeset 20480:048c8ad9bcaa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(apropos, apropos-command): Ignore symbols that have apropos-inhibit property.
author Richard M. Stallman <rms@gnu.org>
date Sun, 21 Dec 1997 01:46:14 +0000
parents ae6b11cadfc6
children 77ed0446c90a
files lisp/apropos.el
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)