diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2005-05-26 20:43:39 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2005-05-26 20:43:39 +0000 |
| commit | 3a02b63eb53a4f0508a6a0d5470635ad6ce6c606 (patch) | |
| tree | 07509cd83c857e287f04ef594fb721c7fc5e1c6f /lisp/time.el | |
| parent | 04e9c13cc2b6f0bd21722e2a82c63313ed818638 (diff) | |
| download | emacs-3a02b63eb53a4f0508a6a0d5470635ad6ce6c606.tar.gz | |
(display-time-string-forms, display-time-update):
Use mode-line-highlight as mouse-face.
Diffstat (limited to 'lisp/time.el')
| -rw-r--r-- | lisp/time.el | 2 |
1 files changed, 2 insertions, 0 deletions
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) |