From a120694fcaf58e938553439c7433505039b57ac5 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 11 Oct 2005 05:08:25 +0000 Subject: [PATCH] (appt-check): Use diary-selective-display var. --- lisp/ChangeLog | 8 ++++---- lisp/calendar/appt.el | 16 ++++++++-------- 2 files changed, 12 insertions(+), 12 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6c179d40c42..df834d0fae9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2005-10-11 Stefan Monnier + + * calendar/appt.el (appt-check): Use diary-selective-display var. + 2005-10-10 Richard M. Stallman * net/newsticker.el (newsticker-start, newsticker-show-news): @@ -130,10 +134,6 @@ * progmodes/gud.el (gud-speedbar-menu-items): Use :visible instead of :active. -2005-10-08 Stefan Monnier - - * calendar/appt.el (appt-check): Use diary-selective-display var. - 2005-10-08 Eric Hanchrow * textmodes/ispell.el (ispell-check-version): diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index ae2fc3bd8e1..590fcc9b871 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -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 ;; Maintainer: Glenn Morris @@ -337,13 +337,13 @@ displayed in a window: 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. -- 2.39.5