* lisp/calendar/appt.el (appt-check): Minor simplification.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 54564dccffad5742a18f8af608669f547945f1f7..0ffce6e13354889528460243b67d28da4eafa266 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-09-28  Glenn Morris  <rgm@gnu.org>
+
+       * calendar/appt.el (appt-check): Minor simplification.
+
 2010-09-28  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * mail/sendmail.el (mail-citation-prefix-regexp): Remove "}" from

diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 18f7a36012f69d8143ee5ee61fcb5b08f7858ce6..d0ad64645106e1385fc531c92125ad5f736e45a2 100644 (file)
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -335,41 +335,25 @@ displayed in a window:
                 (null appt-prev-comp-time) ; first check
                 (< cur-comp-time appt-prev-comp-time)) ; new day
             (ignore-errors
-              (if appt-display-diary
-                  (let ((diary-hook
-                         (if (assoc 'appt-make-list diary-hook)
-                             diary-hook
-                           (cons 'appt-make-list diary-hook))))
-                    (diary))
-                (let* ((diary-display-function 'appt-make-list)
-                       (d-buff (find-buffer-visiting diary-file))
-                       (selective
-                        (if d-buff    ; diary buffer exists
-                            (with-current-buffer d-buff
-                              diary-selective-display)))
-                       d-buff2)
+              (let ((diary-hook (if (assoc 'appt-make-list diary-hook)
+                                    diary-hook
+                                  (cons 'appt-make-list diary-hook)))
+                    d-buff d-buff2)
+                (if appt-display-diary
+                    (diary)
+                  (setq d-buff (find-buffer-visiting diary-file))
                   ;; Not displaying the diary, so we can ignore
                   ;; diary-number-of-entries.  Since appt.el only
                   ;; works on a daily basis, no need for more entries.
-                  ;; FIXME why not using diary-list-entries with
-                  ;; non-nil LIST-ONLY?
-                  (diary 1)
-                  ;; If the diary buffer existed before this command,
-                  ;; restore its display state.  Otherwise, kill it.
-                  (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)))))))
+                  (diary-list-entries (calendar-current-date) 1 t)
+                  ;; If diary buffer did not exist before this command, kill it.
+                  ;; 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...
+                  (and (not d-buff)
+                       (setq d-buff2 (find-buffer-visiting diary-file))
+                       (kill-buffer d-buff2))))))
         (setq appt-prev-comp-time cur-comp-time
               appt-mode-string nil
               appt-display-count nil)