# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1253762811 0
# Node ID d0f5b10b5fb4c297372d7de4571c8f65c3c64993
# Parent  f3f51ce338e8da7e41252d08b3ad3da046419195
(diary-fancy-display): Always run the hook.

diff -r f3f51ce338e8 -r d0f5b10b5fb4 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Sep 24 03:22:40 2009 +0000
+++ b/lisp/ChangeLog	Thu Sep 24 03:26:51 2009 +0000
@@ -1,5 +1,7 @@
 2009-09-24  Glenn Morris  <rgm@gnu.org>
 
+	* calendar/diary-lib.el (diary-fancy-display): Always run the hook.
+
 	* term/ns-win.el (ns-reg-to-script): Define for compiler.
 
 	* mail/rmailmm.el (rmail-mime-multipart-handler): Accept the case where
diff -r f3f51ce338e8 -r d0f5b10b5fb4 lisp/calendar/diary-lib.el
--- a/lisp/calendar/diary-lib.el	Thu Sep 24 03:22:40 2009 +0000
+++ b/lisp/calendar/diary-lib.el	Thu Sep 24 03:26:51 2009 +0000
@@ -1019,8 +1019,11 @@
                      (overlay-put
                       (make-overlay (match-beginning 0) (match-end 0))
                       'face temp-face)))))))
-      (or (eq major-mode 'diary-fancy-display-mode)
-          (diary-fancy-display-mode))
+      ;; FIXME can't remember what this check was for.
+      ;; To prevent something looping, or a minor optimization?
+      (if (eq major-mode 'diary-fancy-display-mode)
+          (run-hooks 'diary-fancy-display-mode-hook)
+        (diary-fancy-display-mode))
       (calendar-set-mode-line date-string)
       (message "Preparing diary...done"))))