Re: calwf

[Uwe Brauer <oub@mat.ucm.es>]

>>> "Stefan" == Stefan Monnier <monnier@iro.umontreal.ca> writes:

   >> (let ((diary-display-hook 'fancy-diary-display-week-graph)
   > [...]
   >> (view-diary-entries 7))))

   > There's no such hook run by Emacs's view-diary-entries, hence the difference.
   > I think you want to use `diary-display-function' instead.


Ok thanks I got it to work: changes; old values have a comment.

;(add-hook 'diary-display-hook 'fancy-diary-display-week-graph)
(setq diary-display-function 'fancy-diary-display-week-graph);

;(let ((diary-display-hook 'fancy-diary-display-week-graph);
    (let ((diary-display-hook 'fancy-diary-display-week-graph)

;(set-buffer (get-buffer-create fancy-diary-buffer))
    (set-buffer (get-buffer-create diary-fancy-buffer))
;    (display-buffer fancy-diary-buffer)
        (display-buffer diary-fancy-buffer)

I could make a change in emacswiki.

I am not sure what is the best solution


wrap the old code with a
 (if (featurep    'xemacs)?

Thanks

Uwe