mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(display-time-event-handler): If Don't run the timer

Browse source 
for successive times that are already in the past.
This commit is contained in:
Richard M. Stallman 1996-12-13 01:31:43 +00:00
parent f73299f360
commit a39a6e40e7
1 changed files with 17 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/time.el
View file

@ -134,7 +134,23 @@ would give mode line times like `94/12/30 21:07:48 (UTC)'.")
(defun display-time-event-handler ()
(display-time-update)
;; Do redisplay right now, if no input pending.
(sit-for 0))
(sit-for 0)
(let ((current (current-time))
(timer display-time-timer))
;; If the next activation time is already in the past,
;; skip executions until we reach a time in the future.
;; This avoids a long pause if Emacs has been suspended for hours.
(or (> (aref timer 1) (nth 0 current))
(and (= (aref timer 1) (nth 0 current))
(> (aref timer 2) (nth 1 current)))
(and (= (aref timer 1) (nth 0 current))
(= (aref timer 2) (nth 1 current))
(> (aref timer 3) (nth 2 current)))
(progn
(cancel-timer timer)
(timer-set-time timer (timer-next-integral-multiple-of-time
current display-time-interval))
(timer-activate timer)))))
;; Update the display-time info for the mode line
;; but don't redisplay right now. This is used for