diff options
| author | Glenn Morris <rgm@gnu.org> | 2010-10-06 19:26:30 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2010-10-06 19:26:30 -0700 |
| commit | 7e1e2a6e32f7f7e1bf42c56e613b5de5356c6503 (patch) | |
| tree | a2baf4ed9c7e8989ccb3fffcb6e974118285de79 | |
| parent | 17ca79503537b602969bd373c6463caa03c3d5c1 (diff) | |
| download | emacs-7e1e2a6e32f7f7e1bf42c56e613b5de5356c6503.tar.gz | |
Minr appt.el change.
* lisp/calendar/appt.el (appt-activate): Give a warning rather than an error
if there is no diary-file.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/calendar/appt.el | 8 |
2 files changed, 10 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9f83e4bf1a3..2ec81e5a48d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-10-07 Glenn Morris <rgm@gnu.org> + + * calendar/appt.el (appt-activate): Give a warning rather than an error + if there is no diary-file. + 2010-10-06 Michael Albinus <michael.albinus@gmx.de> * net/tramp-sh.el (tramp-sh-file-name-handler-alist): Use diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index 43e8666bc31..d6f4f9862d6 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -621,17 +621,19 @@ ARG is positive, otherwise off." (setq appt-timer nil)) (if appt-active (progn - (diary-check-diary-file) (add-hook 'write-file-functions 'appt-update-list) (setq appt-timer (run-at-time t 60 'appt-check) global-mode-string (append global-mode-string '(appt-mode-string))) (appt-check t) - (message "Appointment reminders enabled")) + (message "Appointment reminders enabled%s" + ;; Someone might want to use appt-add without a diary. + (if (ignore-errors (diary-check-diary-file)) + "" + " (no diary file found)"))) (message "Appointment reminders disabled")))) (provide 'appt) -;; arch-tag: bf5791c4-8921-499e-a26f-772b1788d347 ;;; appt.el ends here |