Mercurial > emacs
comparison 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 |
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) |