Show
Ignore:
Timestamp:
2006年05月13日 11時31分18秒 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/battery.el

    r4058 r4079  
    387387                                  "temperature: +\\([0-9]+\\) C$" nil t) 
    388388                             (match-string 1)))) 
     389                       (when (file-exists-p 
     390                              "/proc/acpi/thermal_zone/THR2/temperature") 
     391                         (with-temp-buffer 
     392                           (insert-file-contents 
     393                            "/proc/acpi/thermal_zone/THR2/temperature") 
     394                           (when (re-search-forward 
     395                                  "temperature: +\\([0-9]+\\) C$" nil t) 
     396                             (match-string 1)))) 
    389397                       "N/A")) 
    390398          (cons ?r (or (and rate (concat (number-to-string rate) " "