# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1129007295 0
# Node ID 6240d2f0801891e84ed90e2a5290e6e337b39838
# Parent  0bff86ee08923a64620ea7d5e69af4af8564b494
(appt-check): Use diary-selective-display var.

diff -r 0bff86ee0892 -r 6240d2f08018 lisp/calendar/appt.el
--- a/lisp/calendar/appt.el	Tue Oct 11 03:35:54 2005 +0000
+++ b/lisp/calendar/appt.el	Tue Oct 11 05:08:15 2005 +0000
@@ -1,6 +1,6 @@
 ;;; appt.el --- appointment notification functions
 
-;; Copyright (C) 1989, 1990, 1994, 1998, 2004  Free Software Foundation, Inc.
+;; Copyright (C) 1989, 1990, 1994, 1998, 2004, 2005  Free Software Foundation, Inc.
 
 ;; Author: Neil Mager <neilm@juliet.ll.mit.edu>
 ;; Maintainer: Glenn Morris <rgm@gnu.org>
@@ -337,13 +337,13 @@
                                  diary-hook
                                (cons 'appt-make-list diary-hook))))
                         (diary))
-                    (let ((diary-display-hook 'appt-make-list)
-                          (d-buff (find-buffer-visiting
-                                   (substitute-in-file-name diary-file)))
-                          selective)
-                      (if d-buff        ; diary buffer exists
-                          (with-current-buffer d-buff
-                            (setq selective selective-display)))
+                    (let* ((diary-display-hook 'appt-make-list)
+                           (d-buff (find-buffer-visiting
+                                    (substitute-in-file-name diary-file)))
+                           (selective
+                            (if d-buff        ; Diary buffer exists.
+                                (with-current-buffer d-buff
+                                  diary-selective-display))))
                       (diary)
                       ;; If the diary buffer existed before this command,
                       ;; restore its display state. Otherwise, kill it.