From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 30 Jun 1995 00:23:08 +0000 (+0000)
Subject: (display-time-filter): Move run-hooks inside let.
X-Git-Tag: emacs-19.34~3419
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=83656a198b64894650e6aace3384703a11b5608c;p=emacs.git

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

diff --git a/lisp/time.el b/lisp/time.el
index e841d52618d..8e93bef5e02 100644
--- 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))