From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 23 Apr 2001 14:22:33 +0000 (+0000)
Subject: (calendar-two-frame-setup, calendar-only-one-frame-setup)
X-Git-Tag: emacs-pretest-21.0.103~143
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=53e1a74cec2b4ad6d1b2dc19b460b578f828e4ac;p=emacs.git

(calendar-two-frame-setup, calendar-only-one-frame-setup)
(calendar-one-frame-setup): Use display-multi-frame-p instead of window-system.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a680a9249e7..edc8d51a1e4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,17 @@
+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'.
diff --git a/lisp/calendar/cal-x.el b/lisp/calendar/cal-x.el
index 7151671d722..3dae0e9c05b 100644
--- a/lisp/calendar/cal-x.el
+++ b/lisp/calendar/cal-x.el
@@ -70,7 +70,7 @@ Can be used to change frame parameters, such as font, color, location, etc.")
   
 (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))
@@ -98,7 +98,7 @@ Can be used to change frame parameters, such as font, color, location, etc.")
 
 (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)
@@ -117,7 +117,7 @@ Can be used to change frame parameters, such as font, color, location, etc.")
 
 (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))