diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-12-18 02:46:34 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-12-18 02:46:34 +0000 |
commit | 97b4e35a9380c2937f048c914e6a406611d83ce2 (patch) | |
tree | 71b1487f76442967bd9edf07c1af29fb203f1c95 /lisp/time.el | |
parent | 2286e8240162b81acb5ad415f038cadad00b828a (diff) | |
download | emacs-97b4e35a9380c2937f048c914e6a406611d83ce2.tar.gz |
(display-time-event-handler): Use let*.
Diffstat (limited to 'lisp/time.el')
-rw-r--r-- | lisp/time.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/time.el b/lisp/time.el index e04f49a236d..8f798fa08a2 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -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. |