diff options
| author | Karl Heuer <kwzh@gnu.org> | 1998-06-01 21:46:44 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1998-06-01 21:46:44 +0000 |
| commit | 73413ddd6d872c782d5f60b40e8c0141b610632d (patch) | |
| tree | f493a6d09b35a1541a27f5ea6f8cece1249775fb /lisp/apropos.el | |
| parent | 435631a41c5e4aeba32cabf08428e9dd83d35b0a (diff) | |
| download | emacs-73413ddd6d872c782d5f60b40e8c0141b610632d.tar.gz | |
(apropos-variable): Fixed argument to apropos-command.
(apropos-command): Let `var-predicate' have higher priority than
`do-all'.
Diffstat (limited to 'lisp/apropos.el')
| -rw-r--r-- | lisp/apropos.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 34dabdf0b2c..0dfdbcea003 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -152,7 +152,7 @@ normal variables." " (regexp): ")) current-prefix-arg)) (apropos-command regexp nil - (if arg + (if (or do-all apropos-do-all) #'(lambda (symbol) (and (boundp symbol) (get symbol 'variable-documentation))) @@ -182,8 +182,8 @@ satisfy the predicate VAR-PREDICATE." (or do-all (setq do-all apropos-do-all)) (setq apropos-accumulator (apropos-internal apropos-regexp - (if do-all 'functionp - (or var-predicate 'commandp)))) + (or var-predicate + (if do-all 'functionp 'commandp)))) (let ((tem apropos-accumulator)) (while tem (if (get (car tem) 'apropos-inhibit) |