From 0507406b6ca75c4366dd16855123e8fc9b012c6b Mon Sep 17 00:00:00 2001 From: Nicolas Richard Date: Fri, 25 Apr 2014 14:01:18 -0400 Subject: [PATCH] * lisp/battery.el (battery-update): Handle the case where battery status is "N/A". Fixes: debbugs:17319 --- lisp/ChangeLog | 9 +++++++-- lisp/battery.el | 17 ++++++++--------- 2 files changed, 15 insertions(+), 11 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 60543c67f8..9943884c37 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,12 @@ +2014-04-25 Nicolas Richard + + * battery.el (battery-update): Handle the case where battery + status is "N/A" (bug#17319). + 2014-04-24 Eli Zaretskii - * tooltip.el (tooltip-show-help-non-mode, tooltip-show-help): Use - equal-including-properties to compare help-echo strings. (Bug#17331) + * tooltip.el (tooltip-show-help-non-mode, tooltip-show-help): + Use equal-including-properties to compare help-echo strings (bug#17331). 2014-04-24 Leo Liu diff --git a/lisp/battery.el b/lisp/battery.el index 1eef80ab33..b49363489a 100644 --- a/lisp/battery.el +++ b/lisp/battery.el @@ -201,19 +201,18 @@ seconds." (defun battery-update () "Update battery status information in the mode line." - (let ((data (and battery-status-function (funcall battery-status-function)))) + (let* ((data (and battery-status-function (funcall battery-status-function))) + (percentage (car (read-from-string (cdr (assq ?p data)))))) (setq battery-mode-line-string (propertize (if (and battery-mode-line-format - (<= (car (read-from-string (cdr (assq ?p data)))) - battery-mode-line-limit)) - (battery-format - battery-mode-line-format - data) + (numberp percentage) + (<= percentage battery-mode-line-limit)) + (battery-format battery-mode-line-format data) "") 'face - (and (<= (car (read-from-string (cdr (assq ?p data)))) - battery-load-critical) - 'error) + (and (numberp percentage) + (<= percentage battery-load-critical) + 'error) 'help-echo "Battery status information"))) (force-mode-line-update)) -- 2.20.1