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

Minor appt.el changes.

Browse source 
* lisp/calendar/appt.el (appt-add): Ensure reminders are enabled.
(appt-activate): Give status messages.
This commit is contained in:
Glenn Morris 2010-10-03 18:19:56 -07:00
parent 8762aa1038
commit b459355594
2 changed files with 16 additions and 7 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-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.

18
lisp/calendar/appt.el
View file

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