diff options
| author | Paul Eggert <eggert@twinsun.com> | 1996-09-03 18:16:06 +0000 |
|---|---|---|
| committer | Paul Eggert <eggert@twinsun.com> | 1996-09-03 18:16:06 +0000 |
| commit | d694e9df527c072fffc03e7769902f92a791adf4 (patch) | |
| tree | c65088075ca18d19dfb06e2b4c547e69ef4a3cc0 /lisp/time.el | |
| parent | 65adbc85ce88c58a797cf30b8564462dc165b807 (diff) | |
| download | emacs-d694e9df527c072fffc03e7769902f92a791adf4.tar.gz | |
(display-time): Use new run-at-time functionality to
fix display glitches when display-time-interval != 60.
Diffstat (limited to 'lisp/time.el')
| -rw-r--r-- | lisp/time.el | 5 |
1 files changed, 2 insertions, 3 deletions
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. |