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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aaa8115921c61747332b30edfd6ed62098e8ba79..10d61e8b747ba594081933bb237b58e79d85889a 100644 (file)
--- 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 9731d5354477284cd91b42714993b9799efdf232..0dee0da67f8592047566a2781343e001efb00a5b 100644 (file)
--- 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.