From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 1 Jun 1998 21:46:44 +0000 (+0000)
Subject: (apropos-variable): Fixed argument to apropos-command.
X-Git-Tag: emacs-20.3~751
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cd00fd369524fd43ac7b1fd8d49633635b6e6286;p=emacs.git

(apropos-variable): Fixed argument to apropos-command.
(apropos-command): Let `var-predicate' have higher priority than
`do-all'.
---

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)