changeset 62778:75fa29e46766

(display-time-string-forms, display-time-update): Use mode-line-highlight as mouse-face.
author Luc Teirlinck <teirllm@auburn.edu>
date Thu, 26 May 2005 20:43:39 +0000
parents 3f7cfc4c2036
children c3dbcfe29c9e
files lisp/time.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/time.el	Thu May 26 18:02:06 2005 +0000
+++ b/lisp/time.el	Thu May 26 20:43:39 2005 +0000
@@ -200,6 +200,7 @@
 				  (list :background bg)))))
 	  'face display-time-mail-face
 	  'help-echo "You have new mail; mouse-2: Read mail"
+	  'mouse-face 'mode-line-highlight
 	  'local-map (make-mode-line-mouse-map 'mouse-2
 					       read-mail-command)))
       ""))
@@ -293,6 +294,7 @@
 			  (concat (substring str 0 -2) "." (substring str -2))
 			  'local-map (make-mode-line-mouse-map
 				      'mouse-2 'display-time-next-load-average)
+			  'mouse-face 'mode-line-highlight
 			  'help-echo (concat
 				      "System load average for past "
 				      (if (= 0 display-time-load-average)