From: Francesco Potortì <pot@gnu.org>
Date: Fri, 13 Sep 2002 13:33:57 +0000 (+0000)
Subject: (tetris-blank-options, tetris-cell-options):
X-Git-Tag: ttn-vms-21-2-B4~13185
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ba8cb9c56dfe9e87acccf62f4944284f14e6e59b;p=emacs.git

(tetris-blank-options, tetris-cell-options):
Remove various redundant `(t nil)'.
(tetris-border-options): Use color on tty if available.
---

diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index ea4025cdee4..04c88392aed 100644
--- a/lisp/play/tetris.el
+++ b/lisp/play/tetris.el
@@ -160,25 +160,14 @@ Element 0 is ignored."
 
 ;; ;;;;;;;;;;;;; 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 @@ Element 0 is ignored."
     ((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