diff options
| -rw-r--r-- | lisp/time.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/time.el b/lisp/time.el index 851612da70d..8bf3bcf8f3f 100644 --- a/lisp/time.el +++ b/lisp/time.el | |||
| @@ -159,7 +159,7 @@ depend on `display-time-day-and-date' and `display-time-24hr-format'." | |||
| 159 | display-time-mail-face | 159 | display-time-mail-face |
| 160 | :background))) | 160 | :background))) |
| 161 | 'help-echo "mouse-2: Read mail" | 161 | 'help-echo "mouse-2: Read mail" |
| 162 | 'local-map (make-mode-line-mouse-map 'mouse-2 | 162 | 'local-map (make-mode-line-mouse-map 'mouse-2 |
| 163 | read-mail-command))) | 163 | read-mail-command))) |
| 164 | "")) | 164 | "")) |
| 165 | "*A list of expressions governing display of the time in the mode line. | 165 | "*A list of expressions governing display of the time in the mode line. |
| @@ -232,7 +232,7 @@ would give mode line times like `94/12/30 21:07:48 (UTC)'." | |||
| 232 | (let ((str (format " %03d" (nth display-time-load-average (load-average))))) | 232 | (let ((str (format " %03d" (nth display-time-load-average (load-average))))) |
| 233 | (propertize | 233 | (propertize |
| 234 | (concat (substring str 0 -2) "." (substring str -2)) | 234 | (concat (substring str 0 -2) "." (substring str -2)) |
| 235 | 'local-map (make-mode-line-mouse-map 'mouse-2 | 235 | 'local-map (make-mode-line-mouse-map 'mouse-2 |
| 236 | 'display-time-next-load-average) | 236 | 'display-time-next-load-average) |
| 237 | 'help-echo (concat "System load average for past " | 237 | 'help-echo (concat "System load average for past " |
| 238 | (if (= 0 display-time-load-average) | 238 | (if (= 0 display-time-load-average) |