2447 |
\\<calendar-mode-map>\\[calendar-goto-info-node] from within the calendar. |
\\<calendar-mode-map>\\[calendar-goto-info-node] from within the calendar. |
2448 |
|
|
2449 |
\\<calendar-mode-map>\\{calendar-mode-map}" |
\\<calendar-mode-map>\\{calendar-mode-map}" |
|
|
|
2450 |
(kill-all-local-variables) |
(kill-all-local-variables) |
2451 |
(setq major-mode 'calendar-mode) |
(setq major-mode 'calendar-mode) |
2452 |
(setq mode-name "Calendar") |
(setq mode-name "Calendar") |
2459 |
(make-local-variable 'displayed-month);; Month in middle of window. |
(make-local-variable 'displayed-month);; Month in middle of window. |
2460 |
(make-local-variable 'displayed-year) ;; Year in middle of window. |
(make-local-variable 'displayed-year) ;; Year in middle of window. |
2461 |
(set (make-local-variable 'font-lock-defaults) |
(set (make-local-variable 'font-lock-defaults) |
2462 |
'(calendar-font-lock-keywords t))) |
'(calendar-font-lock-keywords t)) |
2463 |
|
(run-mode-hooks 'calendar-mode-hook)) |
2464 |
|
|
2465 |
(defun calendar-string-spread (strings char length) |
(defun calendar-string-spread (strings char length) |
2466 |
"Concatenate list of STRINGS separated with copies of CHAR to fill LENGTH. |
"Concatenate list of STRINGS separated with copies of CHAR to fill LENGTH. |