Mercurial > emacs
comparison lisp/calendar/appt.el @ 110795:45f1e8634472
Minr appt.el change.
* lisp/calendar/appt.el (appt-activate): Give a warning rather than an error
if there is no diary-file.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 06 Oct 2010 19:26:30 -0700 |
parents | d9ff3c5329a6 |
children | 417b1e4d63cd |
comparison
equal
deleted
inserted
replaced
110794:bacdf2d96735 | 110795:45f1e8634472 |
---|---|
619 (when appt-timer | 619 (when appt-timer |
620 (cancel-timer appt-timer) | 620 (cancel-timer appt-timer) |
621 (setq appt-timer nil)) | 621 (setq appt-timer nil)) |
622 (if appt-active | 622 (if appt-active |
623 (progn | 623 (progn |
624 (diary-check-diary-file) | |
625 (add-hook 'write-file-functions 'appt-update-list) | 624 (add-hook 'write-file-functions 'appt-update-list) |
626 (setq appt-timer (run-at-time t 60 'appt-check) | 625 (setq appt-timer (run-at-time t 60 'appt-check) |
627 global-mode-string | 626 global-mode-string |
628 (append global-mode-string '(appt-mode-string))) | 627 (append global-mode-string '(appt-mode-string))) |
629 (appt-check t) | 628 (appt-check t) |
630 (message "Appointment reminders enabled")) | 629 (message "Appointment reminders enabled%s" |
630 ;; Someone might want to use appt-add without a diary. | |
631 (if (ignore-errors (diary-check-diary-file)) | |
632 "" | |
633 " (no diary file found)"))) | |
631 (message "Appointment reminders disabled")))) | 634 (message "Appointment reminders disabled")))) |
632 | 635 |
633 | 636 |
634 (provide 'appt) | 637 (provide 'appt) |
635 | 638 |
636 ;; arch-tag: bf5791c4-8921-499e-a26f-772b1788d347 | |
637 ;;; appt.el ends here | 639 ;;; appt.el ends here |