mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(display-time): Use run-at-time to start the timer.

Browse source
This commit is contained in:
Richard M. Stallman 1996-02-27 17:44:45 +00:00
parent 01937013f0
commit 243dfffb77
1 changed files with 4 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/time.el
View file

@ -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))