Mercurial > emacs

changeset 22270:0739384d4356

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Minor fixes of earlier updates.
author Edward M. Reingold <reingold@emr.cs.iit.edu>
date Thu, 28 May 1998 01:12:18 +0000
parents ca2d0846af6c
children 71f954d59214
files lisp/calendar/calendar.el
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/calendar.el	Thu May 28 00:46:54 1998 +0000
+++ b/lisp/calendar/calendar.el	Thu May 28 01:12:18 1998 +0000
@@ -2029,8 +2029,10 @@
   (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 @@
   "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