diff lisp/calendar/calendar.el @ 76641:6d2ab8b45146

(diary-set-maybe-redraw): Autoload it. (diary-display-hook): Add custom :set function.

--- a/lisp/calendar/calendar.el	Wed Mar 21 06:25:47 2007 +0000
+++ b/lisp/calendar/calendar.el	Wed Mar 21 06:25:58 2007 +0000
@@ -770,6 +770,8 @@
   :type 'hook
   :group 'diary)
 
+(autoload 'diary-set-maybe-redraw "diary-lib")
+
 ;;;###autoload
 (defcustom diary-display-hook nil
   "List of functions that handle the display of the diary.
@@ -794,6 +796,8 @@
 diary buffer, set the variable `diary-list-include-blanks' to t."
   :type 'hook
   :options '(fancy-diary-display)
+  :initialize 'custom-initialize-default
+  :set 'diary-set-maybe-redraw
   :group 'diary)
 
 ;;;###autoload