Skip to content

GitLab

Commit a120694f authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 71b7a47f
Hide whitespace changes
Inline Side-by-side
Showing with 12 additions and 12 deletions
lisp/ChangeLog
View file @ a120694f
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):
......
lisp/calendar/appt.el
View file @ a120694f
;;; 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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment