[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/time.el
|
From: |
Pavel Janík |
|
Subject: |
[Emacs-diffs] Changes to emacs/lisp/time.el |
|
Date: |
Sat, 19 Jan 2002 09:05:57 -0500 |
Index: emacs/lisp/time.el
diff -c emacs/lisp/time.el:1.72 emacs/lisp/time.el:1.73
*** emacs/lisp/time.el:1.72 Thu Jan 3 03:37:40 2002
--- emacs/lisp/time.el Sat Jan 19 09:05:57 2002
***************
*** 159,165 ****
display-time-mail-face
:background)))
'help-echo "mouse-2: Read mail"
! 'local-map (make-mode-line-mouse-map 'mouse-2
read-mail-command)))
""))
"*A list of expressions governing display of the time in the mode line.
--- 159,165 ----
display-time-mail-face
:background)))
'help-echo "mouse-2: Read mail"
! 'local-map (make-mode-line-mouse-map 'mouse-2
read-mail-command)))
""))
"*A list of expressions governing display of the time in the mode line.
***************
*** 232,238 ****
(let ((str (format " %03d" (nth
display-time-load-average (load-average)))))
(propertize
(concat (substring str 0 -2) "." (substring str -2))
! 'local-map (make-mode-line-mouse-map 'mouse-2
'display-time-next-load-average)
'help-echo (concat "System load average for past "
(if (= 0 display-time-load-average)
--- 232,238 ----
(let ((str (format " %03d" (nth
display-time-load-average (load-average)))))
(propertize
(concat (substring str 0 -2) "." (substring str -2))
! 'local-map (make-mode-line-mouse-map 'mouse-2
'display-time-next-load-average)
'help-echo (concat "System load average for past "
(if (= 0 display-time-load-average)