[Emacs-diffs] Changes to emacs/lisp/battery.el

[Juri Linkov]

Index: emacs/lisp/battery.el
diff -u emacs/lisp/battery.el:1.35 emacs/lisp/battery.el:1.36
--- emacs/lisp/battery.el:1.35  Sat Mar 11 22:34:46 2006
+++ emacs/lisp/battery.el       Tue May  9 22:43:35 2006
@@ -386,6 +386,14 @@
                           (when (re-search-forward
                                  "temperature: +\\([0-9]+\\) C$" nil t)
                             (match-string 1))))
+                      (when (file-exists-p
+                             "/proc/acpi/thermal_zone/THR2/temperature")
+                        (with-temp-buffer
+                          (insert-file-contents
+                           "/proc/acpi/thermal_zone/THR2/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"))