Mercurial > emacs
comparison lisp/calendar/appt.el @ 110753:d9ff3c5329a6
Minor appt.el changes.
* lisp/calendar/appt.el (appt-add): Ensure reminders are enabled.
(appt-activate): Give status messages.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sun, 03 Oct 2010 18:19:56 -0700 |
parents | 34826102748f |
children | 45f1e8634472 |
comparison
equal
deleted
inserted
replaced
110752:a347bc5bfc03 | 110753:d9ff3c5329a6 |
---|---|
444 (setq warntime (unless (string-equal warntime "") | 444 (setq warntime (unless (string-equal warntime "") |
445 (string-to-number warntime)))) | 445 (string-to-number warntime)))) |
446 (and warntime | 446 (and warntime |
447 (not (integerp warntime)) | 447 (not (integerp warntime)) |
448 (error "Argument WARNTIME must be an integer, or nil")) | 448 (error "Argument WARNTIME must be an integer, or nil")) |
449 (or appt-timer (appt-activate)) | |
449 (let ((time-msg (list (list (appt-convert-time time)) | 450 (let ((time-msg (list (list (appt-convert-time time)) |
450 (concat time " " msg) t))) | 451 (concat time " " msg) t))) |
451 ;; It is presently non-sensical to have multiple warnings about | 452 ;; It is presently non-sensical to have multiple warnings about |
452 ;; the same appointment with just different delays, but it might | 453 ;; the same appointment with just different delays, but it might |
453 ;; not always be so. TODO | 454 ;; not always be so. TODO |
616 (or global-mode-string (setq global-mode-string '(""))) | 617 (or global-mode-string (setq global-mode-string '(""))) |
617 (delq 'appt-mode-string global-mode-string) | 618 (delq 'appt-mode-string global-mode-string) |
618 (when appt-timer | 619 (when appt-timer |
619 (cancel-timer appt-timer) | 620 (cancel-timer appt-timer) |
620 (setq appt-timer nil)) | 621 (setq appt-timer nil)) |
621 (when appt-active | 622 (if appt-active |
622 (diary-check-diary-file) | 623 (progn |
623 (add-hook 'write-file-functions 'appt-update-list) | 624 (diary-check-diary-file) |
624 (setq appt-timer (run-at-time t 60 'appt-check) | 625 (add-hook 'write-file-functions 'appt-update-list) |
625 global-mode-string | 626 (setq appt-timer (run-at-time t 60 'appt-check) |
626 (append global-mode-string '(appt-mode-string))) | 627 global-mode-string |
627 (appt-check t)))) | 628 (append global-mode-string '(appt-mode-string))) |
629 (appt-check t) | |
630 (message "Appointment reminders enabled")) | |
631 (message "Appointment reminders disabled")))) | |
628 | 632 |
629 | 633 |
630 (provide 'appt) | 634 (provide 'appt) |
631 | 635 |
632 ;; arch-tag: bf5791c4-8921-499e-a26f-772b1788d347 | 636 ;; arch-tag: bf5791c4-8921-499e-a26f-772b1788d347 |