# HG changeset patch
# User Francesco Potort��� <pot@gnu.org>
# Date 1031924037 0
# Node ID b2bce4f54bce937b5bb73010827e89c19901a172
# Parent  2b50b378bb16077685806f279568f6f5b05c111c
(tetris-blank-options, tetris-cell-options):
Remove various redundant `(t nil)'.
(tetris-border-options): Use color on tty if available.

diff -r 2b50b378bb16 -r b2bce4f54bce lisp/play/tetris.el
--- a/lisp/play/tetris.el	Fri Sep 13 13:31:54 2002 +0000
+++ b/lisp/play/tetris.el	Fri Sep 13 13:33:57 2002 +0000
@@ -160,25 +160,14 @@
 
 ;; ;;;;;;;;;;;;; display options ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defvar tetris-border-options
-  '(((glyph colorize)
-     (t ?\+))
-    ((color-x color-x)
-     (mono-x grid-x)
-     (t nil))
-    (((glyph color-x) [0.5 0.5 0.5])
-     (t nil))))
-
 (defvar tetris-blank-options
   '(((glyph colorize)
      (t ?\040))
     ((color-x color-x)
      (mono-x grid-x)
-     (color-tty color-tty)
-     (t nil))
+     (color-tty color-tty))
     (((glyph color-x) [0 0 0])
-     (color-tty "black")
-     (t nil))))
+     (color-tty "black"))))
 
 (defvar tetris-cell-options
   '(((glyph colorize)
@@ -187,11 +176,19 @@
     ((color-x color-x)
      (mono-x mono-x)
      (color-tty color-tty)
-     (mono-tty mono-tty)
-     (t nil))
+     (mono-tty mono-tty))
     ;; color information is taken from tetris-x-colors and tetris-tty-colors
     ))
 
+(defvar tetris-border-options
+  '(((glyph colorize)
+     (t ?\+))
+    ((color-x color-x)
+     (mono-x grid-x)
+     (color-tty color-tty))
+    (((glyph color-x) [0.5 0.5 0.5])
+     (color-tty "white"))))
+
 (defvar tetris-space-options
   '(((t ?\040))
     nil