[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/diary-lib.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/diary-lib.el,v |
Date: |
Tue, 20 Mar 2007 07:45:06 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 07/03/20 07:45:06
Index: diary-lib.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/diary-lib.el,v
retrieving revision 1.119
retrieving revision 1.120
diff -u -b -r1.119 -r1.120
--- diary-lib.el 17 Mar 2007 17:51:56 -0000 1.119
+++ diary-lib.el 20 Mar 2007 07:45:06 -0000 1.120
@@ -290,6 +290,16 @@
(defvar diary-saved-point) ; internal
+(defun diary-live-p ()
+ "Return non-nil if the diary is being displayed.
+This is not the same as just visiting the `diary-file'."
+ (or (get-buffer fancy-diary-buffer)
+ (when diary-file
+ (let ((dbuff (find-buffer-visiting
+ (substitute-in-file-name diary-file))))
+ (when dbuff
+ (with-current-buffer dbuff
+ diary-selective-display))))))
(defcustom number-of-diary-entries 1
"Specifies how many days of diary entries are to be displayed initially.
@@ -317,6 +327,15 @@
(integer :tag "Thursday")
(integer :tag "Friday")
(integer :tag "Saturday")))
+ :initialize 'custom-initialize-default
+ ;; Redraw a live diary buffer if necessary. Note this assumes diary
+ ;; was not called with a prefix arg.
+ :set (lambda (symbol value)
+ (let ((oldvalue number-of-diary-entries))
+ (custom-set-default symbol value)
+ (and (not (equal value oldvalue))
+ (diary-live-p)
+ (diary))))
:group 'diary)
- [Emacs-diffs] Changes to emacs/lisp/calendar/diary-lib.el,v, Glenn Morris, 2007/03/12
- [Emacs-diffs] Changes to emacs/lisp/calendar/diary-lib.el,v, Chong Yidong, 2007/03/17
- [Emacs-diffs] Changes to emacs/lisp/calendar/diary-lib.el,v,
Glenn Morris <=
- [Emacs-diffs] Changes to emacs/lisp/calendar/diary-lib.el,v, Glenn Morris, 2007/03/21
- [Emacs-diffs] Changes to emacs/lisp/calendar/diary-lib.el,v, Glenn Morris, 2007/03/26