Mercurial > emacs
comparison lisp/time.el @ 14698:87d459e75dad
(display-time): Use run-at-time to start the timer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 27 Feb 1996 17:44:45 +0000 |
| parents | 46556543f4e6 |
| children | 49f7a84c9837 |
comparison
equal
deleted
inserted
replaced
| 14697:5a7714d4748e | 14698:87d459e75dad |
|---|---|
| 61 Updates automatically every minute. | 61 Updates automatically every minute. |
| 62 If `display-time-day-and-date' is non-nil, the current day and date | 62 If `display-time-day-and-date' is non-nil, the current day and date |
| 63 are displayed as well. | 63 are displayed as well. |
| 64 After each update, `display-time-hook' is run with `run-hooks'." | 64 After each update, `display-time-hook' is run with `run-hooks'." |
| 65 (interactive) | 65 (interactive) |
| 66 (require 'timer) | |
| 67 (if (timerp display-time-timer) | |
| 68 (cancel-timer display-time-timer) | |
| 69 (setq display-time-timer (timer-create))) | |
| 70 (setq display-time-string "") | 66 (setq display-time-string "") |
| 71 (or global-mode-string (setq global-mode-string '(""))) | 67 (or global-mode-string (setq global-mode-string '(""))) |
| 72 (or (memq 'display-time-string global-mode-string) | 68 (or (memq 'display-time-string global-mode-string) |
| 73 (setq global-mode-string | 69 (setq global-mode-string |
| 74 (append global-mode-string '(display-time-string)))) | 70 (append global-mode-string '(display-time-string)))) |
| 75 (timer-set-time display-time-timer (current-time) display-time-interval) | 71 ;; Setup the time timer. |
| 76 (timer-set-function display-time-timer 'display-time-event-handler) | 72 (and display-time-timer (cancel-timer display-time-timer)) |
| 77 (timer-activate display-time-timer) | 73 (setq display-time-timer |
| 74 (run-at-time nil display-time-interval 'display-time-event-handler)) | |
| 78 ;; When you get new mail, clear "Mail" from the mode line. | 75 ;; When you get new mail, clear "Mail" from the mode line. |
| 79 (add-hook 'rmail-get-new-mail-hook 'display-time-event-handler)) | 76 (add-hook 'rmail-get-new-mail-hook 'display-time-event-handler)) |
| 80 | 77 |
| 81 (defvar display-time-string-forms | 78 (defvar display-time-string-forms |
| 82 '((if display-time-day-and-date | 79 '((if display-time-day-and-date |