Mercurial > emacs
changeset 47459:c48cad4dc557
(pong-border-options): Use color on tty if
available. Reset color on tty to be [0.5 0.5 0.5].
| author | Francesco Potortì <pot@gnu.org> |
|---|---|
| date | Fri, 13 Sep 2002 13:30:09 +0000 |
| parents | b9b5cf20c775 |
| children | 2b50b378bb16 |
| files | lisp/play/pong.el |
| diffstat | 1 files changed, 4 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/play/pong.el Fri Sep 13 13:27:05 2002 +0000 +++ b/lisp/play/pong.el Fri Sep 13 13:30:09 2002 +0000 @@ -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)