From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 17 Oct 2001 18:41:54 +0000 (+0000)
Subject: (widget-field-face, widget-single-line-field-face):
X-Git-Tag: emacs-21.1~38
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7741db431856583891d473b163f0b48811a4e6f8;p=emacs.git

(widget-field-face, widget-single-line-field-face):
Define special colors for a tty.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 93e13ccf684..3eeccf09441 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-17  Eli Zaretskii  <eliz@is.elta.co.il>
+
+	* wid-edit.el (widget-field-face, widget-single-line-field-face):
+	Define special colors for a tty.
+
 2001-10-17  Miles Bader  <miles@gnu.org>
 
 	* custom.el (defface): Mention `:inherit' in doc-string.
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index dad3082ace6..71af16d28bf 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -120,7 +120,12 @@ This exists as a variable so it can be set locally in certain buffers.")
   :type 'face
   :group 'widget-faces)
 
-(defface widget-field-face '((((class grayscale color)
+;; TTY gets special definitions here and in the next defface, because
+;; the gray colors defined for other displays cause black text on a black
+;; background, at least on light-background TTYs.
+(defface widget-field-face '((((type tty))
+			      (:background "yellow3"))
+			     (((class grayscale color)
 			       (background light))
 			      (:background "gray85"))
 			     (((class grayscale color)
@@ -131,7 +136,9 @@ This exists as a variable so it can be set locally in certain buffers.")
   "Face used for editable fields."
   :group 'widget-faces)
 
-(defface widget-single-line-field-face '((((class grayscale color)
+(defface widget-single-line-field-face '((((type tty))
+					  (:background "green3"))
+					 (((class grayscale color)
 					   (background light))
 					  (:background "gray85"))
 					 (((class grayscale color)