From: Paul Eggert <eggert@twinsun.com>
Date: Tue, 3 Sep 1996 18:16:06 +0000 (+0000)
Subject: (display-time): Use new run-at-time functionality to
X-Git-Tag: emacs-20.1~3860
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d694e9df527c072fffc03e7769902f92a791adf4;p=emacs.git

(display-time): Use new run-at-time functionality to
fix display glitches when display-time-interval != 60.
---

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.