(display-time-filter): Move run-hooks inside let.

83656a19 · Richard M. Stallman · 9d42eea3 · 83656a19
Commit 83656a19 authored Jun 30, 1995 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

lisp/time.el lisp/time.el +4 -2

No files found.
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -163,8 +163,10 @@ would give mode line times like `94/12/30 21:07:48 (UTC)'.")
              ("Sep" . "9") ("Oct" . "10") ("Nov" . "11") ("Dec" . "12")))))
         (dayname (substring time 0 3)))
    (setq display-time-string
-          (mapconcat 'eval display-time-string-forms "")))
-  (run-hooks 'display-time-hook)
+          (mapconcat 'eval display-time-string-forms ""))
+    ;; This is inside the let binding, but we are not going to document
+    ;; what variables are available.
+    (run-hooks 'display-time-hook))
  (force-mode-line-update)
  ;; Do redisplay right now, if no input pending.
  (sit-for 0))