diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-06-30 00:23:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-06-30 00:23:08 +0000 |
| commit | 26d7cc1f8e3370577d5a03b5fb067daa2e349d74 (patch) | |
| tree | 1f560437392c513d853f323c0a63a9b74da33517 /lisp/time.el | |
| parent | 6e45d8686b44462518943ec46384d5d41dee6537 (diff) | |
| download | emacs-26d7cc1f8e3370577d5a03b5fb067daa2e349d74.tar.gz | |
(display-time-filter): Move run-hooks inside let.
Diffstat (limited to 'lisp/time.el')
| -rw-r--r-- | lisp/time.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/time.el b/lisp/time.el index e841d52618d..8e93bef5e02 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -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)) |