]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix spurious warnings from unwise condition order in inlined code
authorMattias Engdegård <mattiase@acm.org>
Thu, 4 Feb 2021 13:32:21 +0000 (14:32 +0100)
committerMattias Engdegård <mattiase@acm.org>
Sat, 6 Feb 2021 19:22:24 +0000 (20:22 +0100)
These are both conditions having the form (and A B) where A is
side-effect-free and B may be known to be nil at compile time.
The compiler will then warn about A being useless and thrown away.
The fix is to test B first.

* lisp/gnus/gnus.el (gnus-method-to-server):
Test `(not no-enter-cache)` first.
(gnus-server-get-method): Test `group` first.

lisp/gnus/gnus.el

index 84e53da297b1b24ee1e3a337bfe59d9a5ef47215..98664ac2b44e5057d62e029b340a012f11b0a385 100644 (file)
@@ -3212,8 +3212,8 @@ that that variable is buffer-local to the summary buffers."
                     (format "%s" (car method))
                   (format "%s:%s" (car method) (cadr method))))
           (name-method (cons name method)))
-      (when (and (not (member name-method gnus-server-method-cache))
-                (not no-enter-cache)
+      (when (and (not no-enter-cache)
+                (not (member name-method gnus-server-method-cache))
                 (not (assoc (car name-method) gnus-server-method-cache)))
        (push name-method gnus-server-method-cache))
       name)))
@@ -3273,8 +3273,7 @@ that that variable is buffer-local to the summary buffers."
         (gnus-server-to-method method))
        ((equal method gnus-select-method)
         gnus-select-method)
-       ((and (stringp (car method))
-             group)
+       ((and group (stringp (car method)))
         (gnus-server-extend-method group method))
        ((and method
              (not group)