martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(display-time-event-handler): Use let*.

Browse Source
This commit is contained in:
Richard M. Stallman
1996-12-18 02:46:34 +00:00
parent e654f4b02c
commit 85673d2b49
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/time.el
View File

@@ -135,12 +135,12 @@ would give mode line times like `94/12/30 21:07:48 (UTC)'.")
(display-time-update)
;; Do redisplay right now, if no input pending.
(sit-for 0)
(let ((current (current-time))
(timer display-time-timer)
;; Compute the time when this timer will run again, next.
(next-time (timer-relative-time
(list (aref timer 1) (aref timer 2) (aref timer 3))
(* 5 (aref timer 4)) 0)))
(let* ((current (current-time))
(timer display-time-timer)
;; Compute the time when this timer will run again, next.
(next-time (timer-relative-time
(list (aref timer 1) (aref timer 2) (aref timer 3))
(* 5 (aref timer 4)) 0)))
;; If the activation time is far 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.