Commit 83656a19 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 9d42eea3
......@@ -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))
......
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