Mercurial > emacs
comparison lisp/calendar/calendar.el @ 22027:aca7f8a34a9e
Made holiday button on menu bar related to current calendar display.
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> |
|---|---|
| date | Mon, 11 May 1998 14:56:37 +0000 |
| parents | 34e8c91f9018 |
| children | 639be14b80ef |
comparison
equal
deleted
inserted
replaced
| 22026:237140fdea76 | 22027:aca7f8a34a9e |
|---|---|
| 2023 (setq mode-name "Calendar") | 2023 (setq mode-name "Calendar") |
| 2024 (use-local-map calendar-mode-map) | 2024 (use-local-map calendar-mode-map) |
| 2025 (setq buffer-read-only t) | 2025 (setq buffer-read-only t) |
| 2026 (setq indent-tabs-mode nil) | 2026 (setq indent-tabs-mode nil) |
| 2027 (update-calendar-mode-line) | 2027 (update-calendar-mode-line) |
| 2028 (make-local-hook 'activate-menubar-hook) | |
| 2029 (add-hook 'activate-menubar-hook 'cal-menu-update nil t) | |
| 2028 (make-local-variable 'calendar-mark-ring) | 2030 (make-local-variable 'calendar-mark-ring) |
| 2029 (make-local-variable 'displayed-month);; Month in middle of window. | 2031 (make-local-variable 'displayed-month);; Month in middle of window. |
| 2030 (make-local-variable 'displayed-year));; Year in middle of window. | 2032 (make-local-variable 'displayed-year));; Year in middle of window. |
| 2031 | 2033 |
| 2032 (defun calendar-string-spread (strings char length) | 2034 (defun calendar-string-spread (strings char length) |