From: Lute Kamstra <lute@gnu.org>
Date: Sun, 12 Jun 2005 09:00:57 +0000 (+0000)
Subject: (calendar-mode): Use run-mode-hooks.
X-Git-Tag: emacs-pretest-22.0.90~9029
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca0113b85aa9400056fd45296cd97a6e298e11ee;p=emacs.git

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

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.