From: Francesco Potortì <pot@gnu.org>
Date: Fri, 13 Sep 2002 13:30:09 +0000 (+0000)
Subject: (pong-border-options): Use color on tty if
X-Git-Tag: ttn-vms-21-2-B4~13187
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6add75170c960eb2ab76da9281044c88ee8bf764;p=emacs.git

(pong-border-options): Use color on tty if
available.  Reset color on tty to be [0.5 0.5 0.5].
---

diff --git a/lisp/play/pong.el b/lisp/play/pong.el
index 07c72a129a3..11aad3b6ea3 100644
--- a/lisp/play/pong.el
+++ b/lisp/play/pong.el
@@ -75,7 +75,7 @@
   :type 'color)
 
 (defcustom pong-border-color "white"
-  "*Color used for pong balls."
+  "*Color used for pong borders."
   :group 'pong
   :type 'color)
 
@@ -155,12 +155,9 @@
   '(((glyph colorize)
      (t ?\+))
     ((color-x color-x)
-     (mono-x grid-x))
-    ;; The colors used to be [0.5 0.5 0.5], but that produces a black
-    ;; color on 8-color tty's, which would make the border invisible.
-    ;; 0.51 produces white on such tty's, and at the same time has
-    ;; almost no effect on X and similar displays.
-    (((glyph color-x) [0.51 0.51 0.51])
+     (mono-x grid-x)
+     (color-tty color-tty))
+    (((glyph color-x) [0.5 0.5 0.5])
      (color-tty pong-border-color))))
 
 (defconst pong-blank	0)