(calendar-mode): Use run-mode-hooks.

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aaa8115921c..10d61e8b747 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-06-12  Lute Kamstra  <lute@gnu.org>
+
+        * calendar/calendar.el (calendar-mode): Use run-mode-hooks.
+
 2005-06-11  Luc Teirlinck  <teirllm@auburn.edu>
 
         * menu-bar.el (menu-bar-make-toggle): Remove stray backslash.
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 9731d535447..0dee0da67f8 100644
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -2447,7 +2447,6 @@ For a complete description, type \
 \\<calendar-mode-map>\\[calendar-goto-info-node] from within the calendar.
 
 \\<calendar-mode-map>\\{calendar-mode-map}"
-
   (kill-all-local-variables)
   (setq major-mode 'calendar-mode)
   (setq mode-name "Calendar")
@@ -2460,7 +2459,8 @@ For a complete description, type \
   (make-local-variable 'displayed-month);;  Month in middle of window.
   (make-local-variable 'displayed-year) ;;  Year in middle of window.
   (set (make-local-variable 'font-lock-defaults)
-       '(calendar-font-lock-keywords t)))
+       '(calendar-font-lock-keywords t))
+  (run-mode-hooks 'calendar-mode-hook))
 
 (defun calendar-string-spread (strings char length)
   "Concatenate list of STRINGS separated with copies of CHAR to fill LENGTH.