From d694e9df527c072fffc03e7769902f92a791adf4 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Tue, 3 Sep 1996 18:16:06 +0000 Subject: (display-time): Use new run-at-time functionality to fix display glitches when display-time-interval != 60. --- lisp/time.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'lisp') diff --git a/lisp/time.el b/lisp/time.el index df819d25677..17abe7f4965 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -89,9 +89,8 @@ This runs the normal hook `display-time-hook' after each update." (append global-mode-string '(display-time-string)))) ;; Set up the time timer. (setq display-time-timer - ;; Start timer at the beginning of the next minute. - (run-at-time (apply 'encode-time 60 (cdr (decode-time))) - display-time-interval 'display-time-event-handler)) + (run-at-time t display-time-interval + 'display-time-event-handler)) ;; Make the time appear right away. (display-time-update) ;; When you get new mail, clear "Mail" from the mode line. -- cgit v1.2.1