Mercurial > emacs
changeset 66007:6240d2f08018
(appt-check): Use diary-selective-display var.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 11 Oct 2005 05:08:15 +0000 |
| parents | 0bff86ee0892 |
| children | b6b6273b9cab |
| files | lisp/calendar/appt.el |
| diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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.