diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-02-27 17:44:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-02-27 17:44:45 +0000 |
| commit | 47afe4c619132c7a89c3d5662ff2f7854128f0a6 (patch) | |
| tree | c6159bf21f034b3158774fd1729b413d861080fc /lisp/time.el | |
| parent | ea77859b1c818d969b9d17406894e27e0fcfc494 (diff) | |
| download | emacs-47afe4c619132c7a89c3d5662ff2f7854128f0a6.tar.gz | |
(display-time): Use run-at-time to start the timer.
Diffstat (limited to 'lisp/time.el')
| -rw-r--r-- | lisp/time.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/lisp/time.el b/lisp/time.el index 76c3b08bbdd..b6cc833ca4e 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -63,18 +63,15 @@ If `display-time-day-and-date' is non-nil, the current day and date are displayed as well. After each update, `display-time-hook' is run with `run-hooks'." (interactive) - (require 'timer) - (if (timerp display-time-timer) - (cancel-timer display-time-timer) - (setq display-time-timer (timer-create))) (setq display-time-string "") (or global-mode-string (setq global-mode-string '(""))) (or (memq 'display-time-string global-mode-string) (setq global-mode-string (append global-mode-string '(display-time-string)))) - (timer-set-time display-time-timer (current-time) display-time-interval) - (timer-set-function display-time-timer 'display-time-event-handler) - (timer-activate display-time-timer) + ;; Setup the time timer. + (and display-time-timer (cancel-timer display-time-timer)) + (setq display-time-timer + (run-at-time nil display-time-interval 'display-time-event-handler)) ;; When you get new mail, clear "Mail" from the mode line. (add-hook 'rmail-get-new-mail-hook 'display-time-event-handler)) |