Commit b4593555 authored by Glenn Morris's avatar Glenn Morris
Browse files

Minor appt.el changes.

* lisp/calendar/appt.el (appt-add): Ensure reminders are enabled.
(appt-activate): Give status messages.
parent 8762aa10
2010-10-04 Glenn Morris <rgm@gnu.org>
* calendar/appt.el (appt-add): Ensure reminders are enabled.
(appt-activate): Give status messages.
2010-10-03 Teodor Zlatanov <tzz@lifelogs.com>
 
* net/gnutls.el: Improve docs. Remove starttls and ssl emulation.
......
......@@ -446,6 +446,7 @@ sMinutes before the appointment to start warning: ")
(and warntime
(not (integerp warntime))
(error "Argument WARNTIME must be an integer, or nil"))
(or appt-timer (appt-activate))
(let ((time-msg (list (list (appt-convert-time time))
(concat time " " msg) t)))
;; It is presently non-sensical to have multiple warnings about
......@@ -618,13 +619,16 @@ ARG is positive, otherwise off."
(when appt-timer
(cancel-timer appt-timer)
(setq appt-timer nil))
(when appt-active
(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))))
(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 disabled"))))
(provide 'appt)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment