[Emacs-diffs] Changes to emacs/lisp/calendar/appt.el

[Stefan Monnier]

Index: emacs/lisp/calendar/appt.el
diff -c emacs/lisp/calendar/appt.el:1.63 emacs/lisp/calendar/appt.el:1.64
*** emacs/lisp/calendar/appt.el:1.63    Sat Oct  8 04:49:18 2005
--- emacs/lisp/calendar/appt.el Tue Oct 11 05:08:15 2005
***************
*** 1,6 ****
  ;;; appt.el --- appointment notification functions
  
! ;; Copyright (C) 1989, 1990, 1994, 1998, 2004  Free Software Foundation, Inc.
  
  ;; Author: Neil Mager <address@hidden>
  ;; Maintainer: Glenn Morris <address@hidden>
--- 1,6 ----
  ;;; appt.el --- appointment notification functions
  
! ;; Copyright (C) 1989, 1990, 1994, 1998, 2004, 2005  Free Software 
Foundation, Inc.
  
  ;; Author: Neil Mager <address@hidden>
  ;; Maintainer: Glenn Morris <address@hidden>
***************
*** 337,349 ****
                                   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)))
                        (diary)
                        ;; If the diary buffer existed before this command,
                        ;; restore its display state. Otherwise, kill it.
--- 337,349 ----
                                   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
!                                   diary-selective-display))))
                        (diary)
                        ;; If the diary buffer existed before this command,
                        ;; restore its display state. Otherwise, kill it.