diff options
| author | Richard M. Stallman | 1996-07-21 18:38:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-07-21 18:38:38 +0000 |
| commit | c22161a406eeb054583bb1249597fe4e2439ec59 (patch) | |
| tree | 9ddd1af125a86cfb2940101407a4913e3e54c8f8 | |
| parent | 6ddc496fa7ef72ee2d39701aaf14f8b3c767ae56 (diff) | |
| download | emacs-c22161a406eeb054583bb1249597fe4e2439ec59.tar.gz emacs-c22161a406eeb054583bb1249597fe4e2439ec59.zip | |
(display-time): Call display-time-event-handler directly
to make the time appear right away.
| -rw-r--r-- | lisp/time.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/time.el b/lisp/time.el index dfcace7c5d2..1008dac31fc 100644 --- a/lisp/time.el +++ b/lisp/time.el | |||
| @@ -74,6 +74,8 @@ After each update, `display-time-hook' is run with `run-hooks'." | |||
| 74 | ;; Start timer at the beginning of the next minute. | 74 | ;; Start timer at the beginning of the next minute. |
| 75 | (run-at-time (apply 'encode-time 60 (cdr (decode-time))) | 75 | (run-at-time (apply 'encode-time 60 (cdr (decode-time))) |
| 76 | display-time-interval 'display-time-event-handler)) | 76 | display-time-interval 'display-time-event-handler)) |
| 77 | ;; Make the time appear right away. | ||
| 78 | (display-time-event-handler) | ||
| 77 | ;; When you get new mail, clear "Mail" from the mode line. | 79 | ;; When you get new mail, clear "Mail" from the mode line. |
| 78 | (add-hook 'rmail-after-get-new-mail-hook 'display-time-event-handler)) | 80 | (add-hook 'rmail-after-get-new-mail-hook 'display-time-event-handler)) |
| 79 | 81 | ||