From 3a02b63eb53a4f0508a6a0d5470635ad6ce6c606 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Thu, 26 May 2005 20:43:39 +0000 Subject: [PATCH] (display-time-string-forms, display-time-update): Use mode-line-highlight as mouse-face. --- lisp/time.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/time.el b/lisp/time.el index ddf0d932733..180d7c44cf3 100644 --- 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) -- 2.39.2