Mercurial > emacs

comparison lisp/calendar/appt.el @ 110638:e82d503da7c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lisp/calendar/appt.el (appt-activate): Check diary file.
author Glenn Morris <rgm@gnu.org>
date Tue, 28 Sep 2010 20:54:03 -0700
parents 081b4ec99498
children 1b24798e2816
comparison
equal deleted inserted replaced
110637:494ea2fb03d7 110638:e82d503da7c2
700 (delq 'appt-mode-string global-mode-string) 700 (delq 'appt-mode-string global-mode-string)
701 (when appt-timer 701 (when appt-timer
702 (cancel-timer appt-timer) 702 (cancel-timer appt-timer)
703 (setq appt-timer nil)) 703 (setq appt-timer nil))
704 (when appt-active 704 (when appt-active
705 (diary-check-diary-file)
705 (add-hook 'write-file-functions 'appt-update-list) 706 (add-hook 'write-file-functions 'appt-update-list)
706 (setq appt-timer (run-at-time t 60 'appt-check) 707 (setq appt-timer (run-at-time t 60 'appt-check)
707 global-mode-string 708 global-mode-string
708 (append global-mode-string '(appt-mode-string))) 709 (append global-mode-string '(appt-mode-string)))
709 (appt-check t)))) 710 (appt-check t))))