Mercurial > emacs
comparison lisp/time.el @ 15745:982e70ecd0de
(display-time): Call display-time-event-handler directly
to make the time appear right away.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 21 Jul 1996 18:38:38 +0000 |
| parents | 8c7e66043faf |
| children | 646df9ca91ba |
comparison
equal
deleted
inserted
replaced
| 15744:911086ff68f5 | 15745:982e70ecd0de |
|---|---|
| 72 (and display-time-timer (cancel-timer display-time-timer)) | 72 (and display-time-timer (cancel-timer display-time-timer)) |
| 73 (setq display-time-timer | 73 (setq display-time-timer |
| 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 |
| 80 (defvar display-time-string-forms | 82 (defvar display-time-string-forms |
| 81 '((if display-time-day-and-date | 83 '((if display-time-day-and-date |