andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Lute Kamstra 2005-06-12 09:00:57 +00:00
parent d02c57d351
commit ca0113b85a
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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.

4
lisp/calendar/calendar.el
View file

@ -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.