# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 947254763 0
# Node ID c681a4318a924c99219c4a7743d63b532e825a9e
# Parent  bfb9906d58b58fbcfb50dd5152a28bd2898eb445
(display-time-string-forms): Make the Mail string active.
(display-time-update): Provide help-echo for load average.

diff -r bfb9906d58b5 -r c681a4318a92 lisp/time.el
--- a/lisp/time.el	Fri Jan 07 14:16:07 2000 +0000
+++ b/lisp/time.el	Fri Jan 07 14:19:23 2000 +0000
@@ -1,6 +1,6 @@
 ;;; time.el --- display time and load in mode line of Emacs.
 
-;; Copyright (C) 1985, 86, 87, 93, 94, 1996 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 86, 87, 93, 94, 96, 2000 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 
@@ -142,14 +142,20 @@
   :group 'display-time)
 
 (defcustom display-time-string-forms
-  '((if (and (not display-time-format) display-time-day-and-date)
+  `((if (and (not display-time-format) display-time-day-and-date)
 	(format-time-string "%a %b %e " now)
       "")
     (format-time-string (or display-time-format
 			    (if display-time-24hr-format "%H:%M" "%-I:%M%p"))
 			now)
     load
-    (if mail " Mail" ""))
+    (if mail ,(propertize " Mail"
+			  'help-echo "mouse-2: Read mail"
+			  'local-map (make-mode-line-mouse2-map
+				      (lambda (e)
+					(interactive "e")
+					(funcall read-mail-command))))
+      ""))
   "*A list of expressions governing display of the time in the mode line.
 For most purposes, you can control the time format using `display-time-format'
 which is a more standard interface.
@@ -204,8 +210,12 @@
 	 (time (current-time-string now))
          (load (condition-case ()
                    (if (zerop (car (load-average))) ""
+		     ;; The load average number is myterious, so
+		     ;; propvide some help.
                      (let ((str (format " %03d" (car (load-average)))))
-                       (concat (substring str 0 -2) "." (substring str -2))))
+		       (propertize
+			(concat (substring str 0 -2) "." (substring str -2))
+			'help-echo "Load average")))
                  (error "")))
          (mail-spool-file (or display-time-mail-file
                               (getenv "MAIL")