# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1117140219 0
# Node ID 75fa29e46766e1b663c078772b38a2e558d78565
# Parent  3f7cfc4c203675534362a2ac933a86a076e5f3a7
(display-time-string-forms, display-time-update):
Use mode-line-highlight as mouse-face.

diff -r 3f7cfc4c2036 -r 75fa29e46766 lisp/time.el
--- 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)