(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 df819d256775f50809b0de836a1bbfb6598ecccf..17abe7f49650bbc5cf143b0a18ab68b4fcb696cf 100644 (file)
--- 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.