Commit 85673d2b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent e654f4b0
......@@ -135,7 +135,7 @@ 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))
(let* ((current (current-time))
(timer display-time-timer)
;; Compute the time when this timer will run again, next.
(next-time (timer-relative-time
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment