# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 971146078 0
# Node ID fb23c215bdc8e0abc6aad6846caf6b82b13f47f3
# Parent  6bf2ae19e2862bad6f9406f165d197dd6e29ca2b
(display-battery): Use `add-to-list'.

diff -r 6bf2ae19e286 -r fb23c215bdc8 lisp/battery.el
--- a/lisp/battery.el	Tue Oct 10 02:47:30 2000 +0000
+++ b/lisp/battery.el	Tue Oct 10 02:47:58 2000 +0000
@@ -1,6 +1,6 @@
 ;;; 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 @@
   (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))