martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Check that a UPower battery device IsPresent

Browse Source 
The composite DisplayDevice is meant to be presented to the user
only if it IsPresent.  It is not entirely clear whether PowerSupply
implies IsPresent, so check both (bug#80229).

* lisp/battery.el (battery-upower): Skip hot-removable batteries
that are missing from the bay.
This commit is contained in:
Basil L. Contovounesios
2026-01-25 11:21:02 +01:00
parent 0a02ab6db8
commit aa9acfacf0
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/battery.el
View File

@@ -914,8 +914,10 @@ The following %-sequences are provided:
((and (eq type 1) (not (eq line-status 'online)))
;; It's a line power device: `online' if currently providing
;; power, any other non-nil value if simply present.
(setq line-status (if (cdr (assoc "Online" props)) 'online t)))
((and (eq type 2) (cdr (assoc "IsPresent" props)))
(setq line-status (or (not (cdr (assoc "Online" props))) 'online)))
((and (eq type 2)
(cdr (assoc "PowerSupply" props))
(cdr (assoc "IsPresent" props)))
;; It's a battery.
(setq count (1+ count))
(setq state (battery--upower-state props state))