From 85673d2b495bd330a7e86d3c0b97239cbb280308 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 18 Dec 1996 02:46:34 +0000 Subject: [PATCH] (display-time-event-handler): Use let*. --- lisp/time.el | 12 ++++++------ 1 file 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. -- 2.39.5