(diary-set-maybe-redraw): Autoload it.

(diary-display-hook): Add custom :set function.

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 294027cbad51bbf7343159cc89e96c4501af55c7..fa7a68acd3081e27ee95901448fe96adaf5ef1e6 100644 (file)
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -770,6 +770,8 @@ Can be used for appointment notification."
   :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 @@ if that day is a holiday; if you want such days to be shown in the fancy
 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