# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 994340141 0
# Node ID 1c462d61083a7034d9b5b5d313b8f4b5c3dc4ae0
# Parent  a13b229de6d7ea5b2a43956612bc2ec7b49a9c41
(battery-update): Add help-echo.
From Pavel Jan,Bm(Bk <Pavel@Janik.cz>.

diff -r a13b229de6d7 -r 1c462d61083a lisp/battery.el
--- a/lisp/battery.el	Thu Jul 05 09:25:36 2001 +0000
+++ b/lisp/battery.el	Thu Jul 05 13:35:41 2001 +0000
@@ -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 @@
 
 (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))