From b03e7e2f06526dbe798903aee44b6465e7a06d26 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Sat, 19 Jan 2002 14:05:57 +0000 Subject: [PATCH] Remove trailing whitespaces. --- lisp/time.el | 4 ++-- 1 file 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'." display-time-mail-face :background))) 'help-echo "mouse-2: Read mail" - 'local-map (make-mode-line-mouse-map 'mouse-2 + '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,7 +232,7 @@ would give mode line times like `94/12/30 21:07:48 (UTC)'." (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 + '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) -- 2.39.2