Mercurial > emacs
changeset 16715:401e38b9650c
(display-time-event-handler): Use let*.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 18 Dec 1996 02:46:34 +0000 |
| parents | 634b34517d56 |
| children | 2ecf4bb329a8 |
| files | lisp/time.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/time.el Wed Dec 18 02:45:09 1996 +0000 +++ b/lisp/time.el Wed Dec 18 02:46:34 1996 +0000 @@ -135,12 +135,12 @@ (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.