Index: games/mine/xmine.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs-packages/games/mine/xmine.el,v
retrieving revision 1.2
diff -u -r1.2 xmine.el
--- games/mine/xmine.el 1998/04/05 10:29:09 1.2
+++ games/mine/xmine.el 1998/04/29 23:56:03
@@ -89,13 +89,13 @@
 
 (defvar xmine-pad-glyph
   (make-glyph
-   (if (and (eq window-system 'x) (featurep 'xpm))
+   (if (and window-system (featurep 'xpm))
        (concat xmine-glyph-dir "pad.xpm")
      "      ")))
 
 (defvar xmine-title-glyph
   (make-glyph
-   (if (and (eq window-system 'x) (featurep 'xpm))
+   (if (and window-system (featurep 'xpm))
        (concat xmine-glyph-dir "splash.xpm")
      "------------------ XEmacs XMine ------------------")))
 
@@ -144,7 +144,7 @@
 	    face (cadddr elem))
       (set (intern var)
 	   (make-glyph (if (and (not xmine-force-textual)
-				(eq window-system 'x))
+				window-system)
 			   (concat xmine-glyph-dir gif)
 			 text)))
       (if face
@@ -695,7 +695,7 @@
 			   (format "Mines: %2d" xmine-number-of-mines)))
     (goto-char (point-min))
     (setq buffer-read-only 't)
-    (if (eq window-system 'x)
+    (if window-system
 	(set-specifier (face-background 'default)
 		       xmine-background xmine-buffer))
     (set-specifier (face-background 'text-cursor)