changeset 47461:b2bce4f54bce

(tetris-blank-options, tetris-cell-options): Remove various redundant `(t nil)'. (tetris-border-options): Use color on tty if available.
author Francesco Potortì <pot@gnu.org>
date Fri, 13 Sep 2002 13:33:57 +0000
parents 2b50b378bb16
children 1bbef0cbbf67
files lisp/play/tetris.el
diffstat 1 files changed, 12 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- 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