From 0f60e5ffda939b8866cf8c07d87bad69d06695bb Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 5 Jul 2001 13:36:03 +0000 Subject: [PATCH] =?utf8?q?(battery-update):=20Add=20help-echo.=20From=20Pa?= =?utf8?q?vel=20Jan=1B,Bm=1B(Bk=20.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- lisp/ChangeLog | 5 +++++ lisp/battery.el | 15 ++++++++------- 2 files changed, 13 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 37908b8bacd..625916563e6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-07-05 Gerd Moellmann + + * battery.el (battery-update): Add help-echo. + From Pavel Jan,Bm(Bk . + 2001-07-04 Gerd Moellmann * font-lock.el (c-font-lock-keywords-3): When matching something diff --git a/lisp/battery.el b/lisp/battery.el index 67e129b9330..9ab5d20d0ac 100644 --- a/lisp/battery.el +++ b/lisp/battery.el @@ -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 ;; 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)) -- 2.39.2