+2001-04-23 Eli Zaretskii <eliz@is.elta.co.il>
+
+ * calendar/calendar.el (diary-entry-marker)
+ (calendar-today-marker, calendar-holiday-marker): Use
+ display-color-p instead of window-system.
+ (calendar-mode-map, calendar-mode): Use display-popup-menus-p
+ instead of window-system.
+ (calendar-hide-window): Use display-multi-frame-p instead of
+ window-system.
+
+ * calendar/cal-x.el (calendar-two-frame-setup)
+ (calendar-only-one-frame-setup, calendar-one-frame-setup): Use
+ display-multi-frame-p instead of window-system.
+
2001-04-23 Gerd Moellmann <gerd@gnu.org>
* play/fortune.el (fortune-from-region): Use `eq' instead of `eql'.
(defun calendar-one-frame-setup (&optional arg)
"Start calendar and display it in a dedicated frame together with the diary."
- (if (not window-system)
+ (if (not (display-multi-frame-p))
(calendar-basic-setup arg)
(if (frame-live-p calendar-frame) (delete-frame calendar-frame))
(if (frame-live-p diary-frame) (delete-frame diary-frame))
(defun calendar-only-one-frame-setup (&optional arg)
"Start calendar and display it in a dedicated frame."
- (if (not window-system)
+ (if (not (display-multi-frame-p))
(calendar-basic-setup arg)
(if (frame-live-p calendar-frame) (delete-frame calendar-frame))
(let ((special-display-buffer-names nil)
(defun calendar-two-frame-setup (&optional arg)
"Start calendar and diary in separate, dedicated frames."
- (if (not window-system)
+ (if (not (display-multi-frame-p))
(calendar-basic-setup arg)
(if (frame-live-p calendar-frame) (delete-frame calendar-frame))
(if (frame-live-p diary-frame) (delete-frame diary-frame))