# HG changeset patch # User Chong Yidong # Date 1162391077 0 # Node ID 65d9fbabd719489d8015993a85eda9655332e3b7 # Parent a2e7a4d48fea97635de93ab1806584f58ecaf3ab * battery.el (battery-linux-proc-acpi): Prevent range error when `full-capacity' is 0. diff -r a2e7a4d48fea -r 65d9fbabd719 lisp/ChangeLog --- a/lisp/ChangeLog Tue Oct 31 21:49:55 2006 +0000 +++ b/lisp/ChangeLog Wed Nov 01 14:24:37 2006 +0000 @@ -1,3 +1,8 @@ +2006-10-31 Andreas Seltenreich + + * battery.el (battery-linux-proc-acpi): Prevent range error when + `full-capacity' is 0. + 2006-10-31 Yoni Rabkin Katzenell (tiny change) * lisp/faces.el (faces-sample-overlay): New defvar. diff -r a2e7a4d48fea -r 65d9fbabd719 lisp/battery.el --- a/lisp/battery.el Tue Oct 31 21:49:55 2006 +0000 +++ b/lisp/battery.el Wed Nov 01 14:24:37 2006 +0000 @@ -408,6 +408,7 @@ (format "%d:%02d" hours (- minutes (* 60 hours)))) "N/A")) (cons ?p (or (and full-capacity capacity + (> full-capacity 0) (number-to-string (floor (/ capacity (/ (float full-capacity) 100)))))