mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(battery-linux-proc-acpi): Also try

Browse Source 
`/proc/acpi/thermal_zone/THM0/temperature'.
This commit is contained in:
Romain Francoise 2005-12-25 14:09:57 +00:00
parent 3a5050af4c
commit 180a447376
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2005-12-25 Romain Francoise <romain@orebokech.com>
* battery.el (battery-linux-proc-acpi): Also try
`/proc/acpi/thermal_zone/THM0/temperature'.
2005-12-24 Chong Yidong <cyd@stupidchicken.com>
* custom.el (custom-push-theme): Fix docstring.

8
lisp/battery.el
View File

@ -347,6 +347,14 @@ The following %-sequences are provided:
(when (re-search-forward
"temperature: +\\([0-9]+\\) C$" nil t)
(match-string 1))))
(when (file-exists-p
"/proc/acpi/thermal_zone/THM0/temperature")
(with-temp-buffer
(insert-file-contents
"/proc/acpi/thermal_zone/THM0/temperature")
(when (re-search-forward
"temperature: +\\([0-9]+\\) C$" nil t)
(match-string 1))))
"N/A"))
(cons ?r (or (and rate (concat (number-to-string rate) " "
rate-type)) "N/A"))