Re: Calendar customization too late

[Glenn Morris]

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)