mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(appt-check): Use diary-selective-display var.

Browse Source
This commit is contained in:
Stefan Monnier 2005-10-11 05:08:25 +00:00
parent 71b7a47f79
commit a120694fca
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2005-10-11 Stefan Monnier <monnier@iro.umontreal.ca>
* calendar/appt.el (appt-check): Use diary-selective-display var.
2005-10-10 Richard M. Stallman <rms@gnu.org>
* 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 <monnier@iro.umontreal.ca>
* calendar/appt.el (appt-check): Use diary-selective-display var.
2005-10-08 Eric Hanchrow <offby1@blarg.net>
* textmodes/ispell.el (ispell-check-version):

16
lisp/calendar/appt.el
View File

@ -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 @@ 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.