mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(battery-update): Add help-echo.

Browse Source 
From Pavel Jan,Bm(Bk <Pavel@Janik.cz>.
This commit is contained in:
Gerd Moellmann 2001-07-05 13:36:03 +00:00
parent 0967b4b07b
commit 0f60e5ffda
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2001-07-05 Gerd Moellmann <gerd@gnu.org>
* battery.el (battery-update): Add help-echo.
From Pavel Jan,Bm(Bk <Pavel@Janik.cz>.
2001-07-04 Gerd Moellmann <gerd@gnu.org>
* font-lock.el (c-font-lock-keywords-3): When matching something

15
lisp/battery.el
View File

@ -1,6 +1,6 @@
;;; battery.el --- display battery status information.
;; Copyright (C) 1997, 1998, 2000 Free Software Foundation, Inc.
;; Copyright (C) 1997, 1998, 2000, 2001 Free Software Foundation, Inc.
;; Author: Ralph Schleicher <rs@nunatak.allgaeu.org>
;; Keywords: hardware
@ -120,12 +120,13 @@ seconds."
(defun battery-update ()
"Update battery status information in the mode line."
(setq battery-mode-line-string (if (and battery-mode-line-format
battery-status-function)
(battery-format
battery-mode-line-format
(funcall battery-status-function))
""))
(setq battery-mode-line-string (propertize (if (and battery-mode-line-format
battery-status-function)
(battery-format
battery-mode-line-format
(funcall battery-status-function))
"")
'help-echo "Battery status information"))
(force-mode-line-update))