Mercurial > emacs
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.