diff options
author | Stefan Monnier <[email protected]> | 2005-01-04 21:15:09 +0000 |
---|---|---|
committer | Stefan Monnier <[email protected]> | 2005-01-04 21:15:09 +0000 |
commit | 73a6a97294ddb173738541a1209690a9d9440154 (patch) | |
tree | b34d6aca5ad0a57613afe59ecfece27578836fee | |
parent | 6bfb8bd66a890522ab6ad5964250920e6f144dbd (diff) |
(display-battery-mode): Rename from display-battery.
Handle the case where it gets turned off.
-rw-r--r-- | etc/NEWS | 4 | ||||
-rw-r--r-- | lisp/ChangeLog | 10 | ||||
-rw-r--r-- | lisp/battery.el | 17 |
3 files changed, 20 insertions, 11 deletions
@@ -1,5 +1,6 @@ GNU Emacs NEWS -- history of user-visible changes. 2003-05-21 -Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. +Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005 + Free Software Foundation, Inc. See the end for copying conditions. Please send Emacs bug reports to [email protected]. @@ -98,6 +99,7 @@ types any more. Add -DUSE_LISP_UNION_TYPE if you want union types. * Changes in Emacs 21.4 +** display-battery has been replaced by display-battery-mode. ** calculator.el now has radix grouping mode, which is available when `calculator-output-radix' is non-nil. In this mode a separator character is used every few digits, making it easier to see byte diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c72040211c..4f395c61ea 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-01-04 Stefan Monnier <[email protected]> + + * battery.el (display-battery-mode): Rename from display-battery. + Handle the case where it gets turned off. + 2005-01-04 Richard M. Stallman <[email protected]> * add-log.el (change-log-font-lock-keywords): Don't match just "From". @@ -5,8 +10,7 @@ 2005-01-04 Andreas Schwab <[email protected]> * files.el (insert-directory): Only look for error lines in - inserted text. Don't move too far after processing --dired - markers. + inserted text. Don't move too far after processing --dired markers. 2005-01-04 Richard M. Stallman <[email protected]> @@ -29,7 +33,7 @@ * isearch.el (lazy-highlight): Group renamed from isearch-lazy-... (lazy-highlight-cleanup, lazy-highlight-initial-delay) (lazy-highlight-interval, lazy-highlight-max-at-a-time) - (lazy-highlight-face): Renamed from isearch-lazy-... + (lazy-highlight-face): Rename from isearch-lazy-... Change all references to them. 2005-01-03 Luc Teirlinck <[email protected]> diff --git a/lisp/battery.el b/lisp/battery.el index b879045073..69bd68bb0b 100644 --- a/lisp/battery.el +++ b/lisp/battery.el @@ -1,6 +1,6 @@ ;;; battery.el --- display battery status information -;; Copyright (C) 1997, 1998, 2000, 2001, 2003, 2004 +;; Copyright (C) 1997, 1998, 2000, 2001, 2003, 2004, 2005 ;; Free Software Foundation, Inc. ;; Author: Ralph Schleicher <[email protected]> @@ -108,20 +108,23 @@ The text being displayed in the echo area is controlled by the variables "Battery status not available"))) ;;;###autoload -(defun display-battery () +(define-minor-mode display-battery-mode "Display battery status information in the mode line. The text being displayed in the mode line is controlled by the variables `battery-mode-line-format' and `battery-status-function'. The mode line will be updated automatically every `battery-update-interval' seconds." - (interactive) + :global t (setq battery-mode-line-string "") (or global-mode-string (setq global-mode-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)) - (battery-update)) + (if (not display-battery-mode) + (setq global-mode-string + (delq 'battery-mode-line-string global-mode-string)) + (add-to-list 'global-mode-string 'battery-mode-line-string t) + (setq battery-update-timer (run-at-time nil battery-update-interval + 'battery-update-handler)) + (battery-update))) (defun battery-update-handler () (battery-update) |