diff options
| author | Edward M. Reingold <[email protected]> | 1998-05-28 01:12:18 +0000 |
|---|---|---|
| committer | Edward M. Reingold <[email protected]> | 1998-05-28 01:12:18 +0000 |
| commit | 9c73a356b0d0bc12ac1cc5eaec07a830afbf640d (patch) | |
| tree | ec4bf7d26bb71cbb6f57d51fb0a7447fd2199b64 /lisp/calendar/calendar.el | |
| parent | 15c1f6fe1672cf10987364dd354b90854b34439a (diff) | |
Minor fixes of earlier updates.
Diffstat (limited to 'lisp/calendar/calendar.el')
| -rw-r--r-- | lisp/calendar/calendar.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 3ea400a28a..68e4130739 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -2029,8 +2029,10 @@ For a complete description, type \ (setq buffer-read-only t) (setq indent-tabs-mode nil) (update-calendar-mode-line) - (make-local-hook 'activate-menubar-hook) - (add-hook 'activate-menubar-hook 'cal-menu-update nil t) + (if window-system + (progn + (make-local-hook 'activate-menubar-hook) + (add-hook 'activate-menubar-hook 'cal-menu-update nil t))) (make-local-variable 'calendar-mark-ring) (make-local-variable 'displayed-month);; Month in middle of window. (make-local-variable 'displayed-year));; Year in middle of window. @@ -2084,7 +2086,8 @@ the STRINGS are just concatenated and the result truncated." "List of all calendar-related buffers." (let* ((diary-buffer (get-file-buffer diary-file)) (buffers (list "*Yahrzeits*" lunar-phases-buffer holiday-buffer - fancy-diary-buffer diary-buffer calendar-buffer)) + fancy-diary-buffer diary-buffer calendar-buffer + other-calendars-buffer)) (buffer-list nil) b) (while buffers |