(display-time-string-forms, display-time-update):

Use mode-line-highlight as mouse-face.

diff --git a/lisp/time.el b/lisp/time.el
index ddf0d93273375de81626db5c4e4e040d7577035d..180d7c44cf3e592e8524a259b469b19e4adaad11 100644 (file)
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -200,6 +200,7 @@ depend on `display-time-day-and-date' and `display-time-24hr-format'."
                                  (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 @@ update which can wait for the next redisplay."
                          (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)