mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(display-time): Use new run-at-time functionality to

Browse Source 
fix display glitches when display-time-interval != 60.
This commit is contained in:
Paul Eggert 1996-09-03 18:16:06 +00:00
parent 65adbc85ce
commit d694e9df52
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/time.el
View File

@ -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.