Mercurial > emacs

changeset 30543:cae243d66bbe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gomoku-font-lock-O-face, gomoku-font-lock-X-face) (gomoku-plot-square, gomoku-init-display): Don't use window-system.
author Eli Zaretskii <eliz@gnu.org>
date Mon, 31 Jul 2000 15:38:35 +0000
parents f03ab02d1f4e
children e9b3bce9cb4b
files lisp/play/gomoku.el
diffstat 1 files changed, 5 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/play/gomoku.el	Mon Jul 31 15:37:49 2000 +0000
+++ b/lisp/play/gomoku.el	Mon Jul 31 15:38:35 2000 +0000
@@ -143,14 +143,14 @@
   "For making font-lock use the winner's face for the line.")
 
 (defcustom gomoku-font-lock-O-face
-  (if window-system
+  (if (display-color-p)
       (list (facemenu-get-face 'fg:red) 'bold))
   "*Face to use for Emacs' O."
   :type '(repeat face)
   :group 'gomoku)
 
 (defcustom gomoku-font-lock-X-face
-  (if window-system
+  (if (display-color-p)
       (list (facemenu-get-face 'fg:green) 'bold))
   "*Face to use for your X."
   :type '(repeat face)
@@ -987,8 +987,7 @@
     (insert-and-inherit (cond ((= value 1) ?X)
 			      ((= value 6) ?O)
 			      (?.)))
-    (and window-system
-	 (zerop value)
+    (and (zerop value)
 	 (put-text-property (1- (point)) (point) 'mouse-face 'highlight))
     (delete-char 1)
     (backward-char 1))
@@ -1028,9 +1027,8 @@
 		      (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))