(emacs-version) "GNU Emacs 24.2.1 (x86_64-apple-darwin12.2.1, Carbon Version 1.6.0 AppKit 1187.34)"
において、
(display-battery-mode 1)
とすると、`number-or-marker-p' 付近でエラーが発生するので、起動時にこれをevalするようになっていると、そこでエラーとなりそれ以降のelispが読み込まれない。理由は、Mountain Lion当時、pmsetが返す文字列は以下だった
$ pmset -g ps Currently drawing from 'AC Power' -InternalBattery-0 99%; charged; 0:00 remaining
が、Mavericksになってその文字列に変更が加えられたから。
$ pmset -g ps Now drawing from 'Battery Power' -InternalBattery-0 99%; charged; 0:00 remaining
battery.el内のbattery-pmset()がこれら文字列を解析して表示しているのだが、初っ端からして異なっているためにmatchせず、N/Aになる。
なので、battery.elのbattery-pmset()の定義内を
(re-search-forward "Currentl?y drawing from '\\(AC\\|Battery\\) Power'" nil t)
から
(re-search-forward "\\(Currentl?y\\|Now\\) drawing from '\\(AC\\|Battery\\) Power'" nil t)
に変更するpatchを作ればOK.
適当に作った.
--- battery.el 2013-01-02 05:37:17.000000000 +0900
+++ mavericks-battery.el 2013-10-23 12:11:13.000000000 +0900
@@ -543,7 +543,7 @@ The following %-sequences are provided:
(with-temp-buffer
(ignore-errors (call-process "pmset" nil t nil "-g" "ps"))
(goto-char (point-min))
- (when (re-search-forward "Currentl?y drawing from '\\(AC\\|Battery\\) Power'" nil t)
+ (when (re-search-forward "\\(Currentl?y\\|Now\\) drawing from '\\(AC\\|Battery\\) Power'" nil t)
(setq power-source (match-string 1))
(when (re-search-forward "^ -InternalBattery-0[ \t]+" nil t)
(when (looking-at "\\([0-9]\\{1,3\\}\\)%")