# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1284518760 25200
# Node ID d649dba1ba8d7f7fc1e28a3eb3dc71358589da50
# Parent  87d704ff4a52d15bbd900f17ad95cf1c6faf8d19
Minor appt-check fix.
* lisp/calendar/appt.el (appt-check): Rather than showing the diary,
just turn off invisible display, and only if needed.

diff -r 87d704ff4a52 -r d649dba1ba8d lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Sep 14 19:34:39 2010 -0700
+++ b/lisp/ChangeLog	Tue Sep 14 19:46:00 2010 -0700
@@ -1,5 +1,8 @@
 2010-09-15  Glenn Morris  <rgm@gnu.org>
 
+	* calendar/appt.el (appt-check): Rather than showing the diary,
+	just turn off invisible display, and only if needed.
+
 	* calendar/diary-lib.el (diary-list-entries): Doc fix.  (Bug#7019)
 
 2010-09-14  Stefan Monnier  <monnier@iro.umontreal.ca>
diff -r 87d704ff4a52 -r d649dba1ba8d lisp/calendar/appt.el
--- a/lisp/calendar/appt.el	Tue Sep 14 19:34:39 2010 -0700
+++ b/lisp/calendar/appt.el	Tue Sep 14 19:46:00 2010 -0700
@@ -345,17 +345,27 @@
                          (selective
                           (if d-buff    ; diary buffer exists
                               (with-current-buffer d-buff
-                                diary-selective-display))))
+                                diary-selective-display)))
+                         d-buff2)
                     ;; FIXME why not using diary-list-entries with
                     ;; non-nil LIST-ONLY?
                     (diary)
                     ;; If the diary buffer existed before this command,
                     ;; restore its display state.  Otherwise, kill it.
-                    (if d-buff
-                        ;; Displays the diary buffer.
-                        (or selective (diary-show-all-entries))
-                      (and (setq d-buff (find-buffer-visiting diary-file))
-                           (kill-buffer d-buff)))))
+                    (and (setq d-buff2 (find-buffer-visiting diary-file))
+                         (if d-buff
+                             (or selective
+                                 (with-current-buffer d-buff2
+                                   (if diary-selective-display
+                                       ;; diary-show-all-entries displays
+                                       ;; the diary buffer.
+                                       (diary-unhide-everything))))
+                           ;; FIXME does not kill any included diary files.
+                           ;; The real issue is that (diary) should not
+                           ;; have the side effect of visiting all the
+                           ;; diary files.  It is not really appt.el's job to
+                           ;; clean up this mess...
+                           (kill-buffer d-buff2)))))
               (error nil)))
         (setq appt-prev-comp-time cur-comp-time
               appt-mode-string nil