]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix Linux APM BIOS flag testing in battery.el
authorBasil L. Contovounesios <contovob@tcd.ie>
Wed, 17 Aug 2022 17:11:25 +0000 (20:11 +0300)
committerBasil L. Contovounesios <contovob@tcd.ie>
Wed, 17 Aug 2022 17:11:25 +0000 (20:11 +0300)
Original sin detected by recent byte-compiler improvements; see:
https://lists.gnu.org/r/emacs-devel/2022-08/msg00611.html

* lisp/battery.el (battery-linux-proc-apm): Treat result of logand
as a number, not boolean.

lisp/battery.el

index 93f4070e4bc44f91e2c49289ffafdb7514e2df61..72b3dfdae7c9b781581fcf8d4ed08e24b7210788 100644 (file)
@@ -369,11 +369,11 @@ The following %-sequences are provided:
        (setq driver-version (match-string 1))
        (setq bios-version (match-string 2))
        (setq tem (string-to-number (match-string 3) 16))
-       (if (not (logand tem 2))
+        (if (zerop (logand tem 2))
            (setq bios-interface "not supported")
          (setq bios-interface "enabled")
-         (cond ((logand tem 16) (setq bios-interface "disabled"))
-               ((logand tem 32) (setq bios-interface "disengaged")))
+          (cond ((/= (logand tem 16) 0) (setq bios-interface "disabled"))
+                ((/= (logand tem 32) 0) (setq bios-interface "disengaged")))
          (setq tem (string-to-number (match-string 4) 16))
          (cond ((= tem 0) (setq line-status "off-line"))
                ((= tem 1) (setq line-status "on-line"))