(diary-fancy-display): Always run the hook.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0a15075cc2f..85b25205697 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 6f73c1048dd..9ed28c403a9 100644
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -1019,8 +1019,11 @@ This is an option for `diary-display-function'."
                      (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"))))