Mercurial > emacs
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)