procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 1995-06-30 00:23:08 +00:00
parent 9d42eea392
commit 83656a198b
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/time.el
View file

@ -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))