From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 31 Jul 2000 15:37:49 +0000 (+0000)
Subject: (lm-font-lock-face-O, lm-font-lock-face-X)
X-Git-Tag: emacs-pretest-21.0.90~2533
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec45b7bb0c79ad7dbbdd76b683879cbcfa17bb01;p=emacs.git

(lm-font-lock-face-O, lm-font-lock-face-X)
(lm-plot-square, lm-init-display): Don't use window-system.
---

diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el
index 9f8ca0b7068..15cab857177 100644
--- a/lisp/play/landmark.el
+++ b/lisp/play/landmark.el
@@ -217,12 +217,12 @@
   "*For making font-lock use the winner's face for the line.")
 
 (defvar lm-font-lock-face-O
-  (if window-system
+  (if (display-color-p)
       (list (facemenu-get-face 'fg:red) 'bold))
   "*Face to use for Emacs' O.")
 
 (defvar lm-font-lock-face-X
-  (if window-system
+  (if (display-color-p)
       (list (facemenu-get-face 'fg:green) 'bold))
   "*Face to use for your X.")
 
@@ -893,8 +893,7 @@ If the game is finished, this command requests for another game."
 			      ((= value 5) ?W)
 			      ((= value 6) ?^)))
 
-    (and window-system
-	 (zerop value)
+    (and (zerop value)
 	 (put-text-property (1- (point)) (point) 'mouse-face 'highlight))
     (delete-char 1)
     (backward-char 1))
@@ -934,9 +933,8 @@ If the game is finished, this command requests for another game."
 		      (goto-char (point-max))))
 	       (setq point (point))
 	       (insert ?=)
-	       (if window-system
-		   (put-text-property point (point)
-				      'mouse-face 'highlight)))
+	       (put-text-property point (point)
+				  'mouse-face 'highlight))
 	     (> (setq i (1- i)) 0))
       (if (= i (1- m))
 	  (setq opoint point))