[Emacs-diffs] /srv/bzr/emacs/trunk r101781: Minor appt.el changes.

[Glenn Morris]

------------------------------------------------------------
revno: 101781
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2010-10-03 18:19:56 -0700
message:
  Minor appt.el changes.
  * lisp/calendar/appt.el (appt-add): Ensure reminders are enabled.
  (appt-activate): Give status messages.
modified:
  lisp/ChangeLog
  lisp/calendar/appt.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-10-04 01:16:00 +0000
+++ b/lisp/ChangeLog    2010-10-04 01:19:56 +0000
@@ -1,3 +1,8 @@
+2010-10-04  Glenn Morris  <address@hidden>
+
+       * calendar/appt.el (appt-add): Ensure reminders are enabled.
+       (appt-activate): Give status messages.
+
 2010-10-03  Teodor Zlatanov  <address@hidden>
 
        * net/gnutls.el: Improve docs.  Remove starttls and ssl emulation.

=== modified file 'lisp/calendar/appt.el'
--- a/lisp/calendar/appt.el     2010-10-03 01:56:11 +0000
+++ b/lisp/calendar/appt.el     2010-10-04 01:19:56 +0000
@@ -446,6 +446,7 @@
   (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 @@
     (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)