(display-battery): Use `add-to-list'.

862a7e28 · Miles Bader · c8bfa689 · 862a7e28 · 862a7e28
Commit 862a7e28 authored Oct 10, 2000 by Miles Bader
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 4 deletions

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/battery.el lisp/battery.el +2 -4

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2000-10-10  Miles Bader  <miles@lsi.nec.co.jp>
+
+	* subr.el (add-to-list): Add optional argument APPEND.
+	* battery.el (display-battery): Use `add-to-list'.
+
 2000-10-09  Thien-Thi Nguyen  <ttn@gnu.org>

 	* play/zone.el (zone-timer, zone-wc-tbl): Rework

--- a/lisp/battery.el
+++ b/lisp/battery.el
 ;;; battery.el --- display battery status information.

-;; Copyright (C) 1997, 1998 Free Software Foundation, Inc.
+;; Copyright (C) 1997, 1998, 2000 Free Software Foundation, Inc.

 ;; Author: Ralph Schleicher <rs@nunatak.allgaeu.org>
 ;; Keywords: hardware
@@ -108,9 +108,7 @@ seconds."
  (interactive)
  (setq battery-mode-line-string "")
  (or global-mode-string (setq global-mode-string '("")))
-  (or (memq 'battery-mode-line-string global-mode-string)
-      (setq global-mode-string (append global-mode-string
-				       '(battery-mode-line-string))))
+  (add-to-list 'global-mode-string 'battery-mode-line-string t)
  (and battery-update-timer (cancel-timer battery-update-timer))
  (setq battery-update-timer (run-at-time nil battery-update-interval
 					  'battery-update-handler))