# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 804471788 0
# Node ID 5f4248eb4bddabc61083bb29451a8472ccc92113
# Parent  6141f81a80e53093d7784b3b1089be52356f843a
(display-time-filter): Move run-hooks inside let.

diff -r 6141f81a80e5 -r 5f4248eb4bdd lisp/time.el
--- a/lisp/time.el	Thu Jun 29 23:13:19 1995 +0000
+++ b/lisp/time.el	Fri Jun 30 00:23:08 1995 +0000
@@ -163,8 +163,10 @@
               ("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))