From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 6 Feb 2002 12:06:19 +0000 (+0000)
Subject: (pong-border-options): Make the border colors slightly more bright.
X-Git-Tag: ttn-vms-21-2-B4~16836
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e77c1e8c4d7381fc0f6b0f67df083daf4d30992c;p=emacs.git

(pong-border-options): Make the border colors slightly more bright.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 430856df6d7..77677715799 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
 	* play/pong.el (pong-height): Don't use height that exceeds the
 	frame height.
+	(pong-border-options): Make the border colors slightly more
+	bright.
 
 	* play/gamegrid.el (gamegrid-display-type): Treat any
 	color-capable display as color-x, if display-color-p is fboundp.
diff --git a/lisp/play/pong.el b/lisp/play/pong.el
index 36bd92137ec..07c72a129a3 100644
--- a/lisp/play/pong.el
+++ b/lisp/play/pong.el
@@ -156,7 +156,11 @@
      (t ?\+))
     ((color-x color-x)
      (mono-x grid-x))
-    (((glyph color-x) [0.5 0.5 0.5])
+    ;; 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])
      (color-tty pong-border-color))))
 
 (defconst pong-blank	0)