Mercurial > emacs

comparison lisp/time.el @ 12440:5f4248eb4bdd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
comparison
equal deleted inserted replaced
12439:6141f81a80e5 12440:5f4248eb4bdd
161 '(("Jan" . "1") ("Feb" . "2") ("Mar" . "3") ("Apr" . "4") 161 '(("Jan" . "1") ("Feb" . "2") ("Mar" . "3") ("Apr" . "4")
162 ("May" . "5") ("Jun" . "6") ("Jul" . "7") ("Aug" . "8") 162 ("May" . "5") ("Jun" . "6") ("Jul" . "7") ("Aug" . "8")
163 ("Sep" . "9") ("Oct" . "10") ("Nov" . "11") ("Dec" . "12"))))) 163 ("Sep" . "9") ("Oct" . "10") ("Nov" . "11") ("Dec" . "12")))))
164 (dayname (substring time 0 3))) 164 (dayname (substring time 0 3)))
165 (setq display-time-string 165 (setq display-time-string
166 (mapconcat 'eval display-time-string-forms ""))) 166 (mapconcat 'eval display-time-string-forms ""))
167 (run-hooks 'display-time-hook) 167 ;; This is inside the let binding, but we are not going to document
168 ;; what variables are available.
169 (run-hooks 'display-time-hook))
168 (force-mode-line-update) 170 (force-mode-line-update)
169 ;; Do redisplay right now, if no input pending. 171 ;; Do redisplay right now, if no input pending.
170 (sit-for 0)) 172 (sit-for 0))
171 173
172 (defun display-time-file-nonempty-p (file) 174 (defun display-time-file-nonempty-p (file)