[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Calendar customization too late
From: |
Glenn Morris |
Subject: |
Re: Calendar customization too late |
Date: |
Mon, 19 Mar 2007 20:25:32 -0400 |
User-agent: |
Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) |
Stephen Berman wrote:
> Now your ~/.emacs file contains these lines:
> (appt-activate 1)
> (custom-set-variables
> ;; custom-set-variables was added by Custom.
> ;; If you edit it by hand, you could mess it up, so be careful.
> ;; Your init file should contain only one such instance.
> ;; If there is more than one, they won't work right.
> '(number-of-diary-entries 7))
[...]
> 5. Kill Emacs and restart it as in step 3 above. You again get
> vertically split windows and in the lower one is just the first diary
> entry. However, because of the customization, the lower window should
> display all diary entries within a week from today.
[...]
> I think the problem is caused by appt-activate making the diary
> display before the customization takes effect.
It happens with just (diary) too, regardless of appt.el. How about
this patch:
*** diary-lib.el 17 Mar 2007 17:51:56 -0000 1.119
--- diary-lib.el 20 Mar 2007 00:22:22 -0000
***************
*** 317,322 ****
--- 317,330 ----
(integer :tag "Thursday")
(integer :tag "Friday")
(integer :tag
"Saturday")))
+ :initialize 'custom-initialize-default
+ ;; Redraw a live diary buffer if necssary.
+ :set (lambda (symbol value)
+ (let ((oldvalue number-of-diary-entries))
+ (custom-set-default symbol value)
+ (and (not (equal value oldvalue))
+ (find-buffer-visiting (substitute-in-file-name diary-file))
+ (diary))))
:group 'diary)