From: Po Lu <luangruo@yahoo.com>
Date: Mon, 3 Jan 2022 07:44:51 +0000 (+0800)
Subject: Fix battery load calculation on Haiku
X-Git-Tag: emacs-29.0.90~3286
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61c35e415cd4c8046f9b08c29f97a7cf29640c94;p=emacs.git

Fix battery load calculation on Haiku

* lisp/battery.el (battery-haiku-acpi-battery): Fix load
calculation.
---

diff --git a/lisp/battery.el b/lisp/battery.el
index 7661697cb45..f4d59f30bbb 100644
--- a/lisp/battery.el
+++ b/lisp/battery.el
@@ -689,8 +689,8 @@ The following %-sequences are provided:
                             ((eq state 'critical) "!")
                             (t ""))))
                 (cons ?p (format "%.0f"
-                                 (/ (plist-get list :capacity)
-                                    (plist-get list :last-full-charge)))))
+                                 (* 100 (/ (plist-get list :capacity)
+                                           (plist-get list :last-full-charge))))))
         '((?c . "N/A")
           (?r . "N/A")
           (?B . "N/A")