(widget-field-face, widget-single-line-field-face):

Define special colors for a tty.

2 files changed, 15 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 98f1fd8a07c..031cdd4c4c8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,9 +1,14 @@
+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  Francesco Potorti`  <pot@gnu.org>
 
         * comint.el (comint-password-prompt-regexp): Make it less
         restrictive, letting comint recognise OpenSSH2 passphrase prompts.
 
-2001-10-15  John Wiegley  <johnw@gnu.org>
+2001-10-17  John Wiegley  <johnw@gnu.org>
 
         * eshell/em-unix.el (eshell/cat): Do a quick test if something is
         a regular file, before checking if it is a directory or symlink.
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)