changeset 63334:e3610cf31194

(calendar-mode): Use run-mode-hooks.
author Lute Kamstra <lute@gnu.org>
date Sun, 12 Jun 2005 08:57:58 +0000
parents cda186c07437
children f6ea50272353
files lisp/calendar/calendar.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/calendar.el	Sun Jun 12 00:04:44 2005 +0000
+++ b/lisp/calendar/calendar.el	Sun Jun 12 08:57:58 2005 +0000
@@ -2447,7 +2447,6 @@
 \\<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 @@
   (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.