From 2157a2be64ad09c66f4bd9ee4e918e2db542def0 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 24 Sep 2009 03:26:51 +0000 Subject: [PATCH] (diary-fancy-display): Always run the hook. --- lisp/ChangeLog | 2 ++ lisp/calendar/diary-lib.el | 7 +++++-- 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 + * 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")))) -- 2.39.2