Mercurial > emacs
diff lisp/time.el @ 12440:5f4248eb4bdd
(display-time-filter): Move run-hooks inside let.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 30 Jun 1995 00:23:08 +0000 |
parents | ad9b385814fc |
children | 30f9ffb5ce2d |
line wrap: on
line diff
--- 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))