mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Miles Bader 2000-10-10 02:48:40 +00:00
parent c8bfa68964
commit 862a7e281e
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/battery.el
View file

@ -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 @@ 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))