andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minr appt.el change.

Browse source 
* lisp/calendar/appt.el (appt-activate): Give a warning rather than an error
if there is no diary-file.
This commit is contained in:
Glenn Morris 2010-10-06 19:26:30 -07:00
parent 17ca795035
commit 7e1e2a6e32
2 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

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

8
lisp/calendar/appt.el
View file

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