Mercurial > emacs

comparison lisp/time.el @ 62778:75fa29e46766

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 a7e02ef1e3d6
children fbdbc34f3665 01137c1fdbe9
comparison
equal deleted inserted replaced
62777:3f7cfc4c2036 62778:75fa29e46766
198 :background))) 198 :background)))
199 (if (stringp bg) 199 (if (stringp bg)
200 (list :background bg))))) 200 (list :background bg)))))
201 'face display-time-mail-face 201 'face display-time-mail-face
202 'help-echo "You have new mail; mouse-2: Read mail" 202 'help-echo "You have new mail; mouse-2: Read mail"
203 'mouse-face 'mode-line-highlight
203 'local-map (make-mode-line-mouse-map 'mouse-2 204 'local-map (make-mode-line-mouse-map 'mouse-2
204 read-mail-command))) 205 read-mail-command)))
205 "")) 206 ""))
206 "*A list of expressions governing display of the time in the mode line. 207 "*A list of expressions governing display of the time in the mode line.
207 For most purposes, you can control the time format using `display-time-format' 208 For most purposes, you can control the time format using `display-time-format'
291 (load-average))))) 292 (load-average)))))
292 (propertize 293 (propertize
293 (concat (substring str 0 -2) "." (substring str -2)) 294 (concat (substring str 0 -2) "." (substring str -2))
294 'local-map (make-mode-line-mouse-map 295 'local-map (make-mode-line-mouse-map
295 'mouse-2 'display-time-next-load-average) 296 'mouse-2 'display-time-next-load-average)
297 'mouse-face 'mode-line-highlight
296 'help-echo (concat 298 'help-echo (concat
297 "System load average for past " 299 "System load average for past "
298 (if (= 0 display-time-load-average) 300 (if (= 0 display-time-load-average)
299 "1 minute" 301 "1 minute"
300 (if (= 1 display-time-load-average) 302 (if (= 1 display-time-load-average)