Mercurial > emacs
comparison lisp/apropos.el @ 20480:048c8ad9bcaa
(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 | 445110a43268 |
| children | 16f1fd128350 |
comparison
equal
deleted
inserted
replaced
| 20479:ae6b11cadfc6 | 20480:048c8ad9bcaa |
|---|---|
| 167 (if do-all | 167 (if do-all |
| 168 (lambda (symbol) (or (commandp symbol) | 168 (lambda (symbol) (or (commandp symbol) |
| 169 (user-variable-p symbol))) | 169 (user-variable-p symbol))) |
| 170 (if just-vars 'user-variable-p | 170 (if just-vars 'user-variable-p |
| 171 'commandp)))) | 171 'commandp)))) |
| 172 (let ((tem apropos-accumulator)) | |
| 173 (while tem | |
| 174 (if (get (car tem) 'apropos-inhibit) | |
| 175 (setq apropos-accumulator (delq (car tem) apropos-accumulator))) | |
| 176 (setq tem (cdr tem)))) | |
| 172 (if (apropos-print | 177 (if (apropos-print |
| 173 t | 178 t |
| 174 (lambda (p) | 179 (lambda (p) |
| 175 (let (doc symbol) | 180 (let (doc symbol) |
| 176 (while p | 181 (while p |
| 206 (lambda (symbol) | 211 (lambda (symbol) |
| 207 (or (fboundp symbol) | 212 (or (fboundp symbol) |
| 208 (boundp symbol) | 213 (boundp symbol) |
| 209 (facep symbol) | 214 (facep symbol) |
| 210 (symbol-plist symbol)))))) | 215 (symbol-plist symbol)))))) |
| 216 (let ((tem apropos-accumulator)) | |
| 217 (while tem | |
| 218 (if (get (car tem) 'apropos-inhibit) | |
| 219 (setq apropos-accumulator (delq (car tem) apropos-accumulator))) | |
| 220 (setq tem (cdr tem)))) | |
| 211 (apropos-print | 221 (apropos-print |
| 212 (or do-all apropos-do-all) | 222 (or do-all apropos-do-all) |
| 213 (lambda (p) | 223 (lambda (p) |
| 214 (let (symbol doc properties) | 224 (let (symbol doc properties) |
| 215 (while p | 225 (while p |