diff lisp/wid-edit.el @ 44591:9ac5b019b785

(widget-field-face, widget-single-line-field-face): Force foreground to be black on a tty, so this face is readable on a dark-background tty.

--- a/lisp/wid-edit.el	Mon Apr 15 06:16:28 2002 +0000
+++ b/lisp/wid-edit.el	Mon Apr 15 06:18:13 2002 +0000
@@ -124,28 +124,30 @@
 ;; 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"))
+			      :background "yellow3"
+			      :foreground "black")
 			     (((class grayscale color)
 			       (background light))
-			      (:background "gray85"))
+			      :background "gray85")
 			     (((class grayscale color)
 			       (background dark))
-			      (:background "dim gray"))
+			      :background "dim gray")
 			     (t
-			      (:slant italic)))
+			      :slant italic))
   "Face used for editable fields."
   :group 'widget-faces)
 
 (defface widget-single-line-field-face '((((type tty))
-					  (:background "green3"))
+					  :background "green3"
+					  :foreground "black")
 					 (((class grayscale color)
 					   (background light))
-					  (:background "gray85"))
+					  :background "gray85")
 					 (((class grayscale color)
 					   (background dark))
-					  (:background "dim gray"))
+					  :background "dim gray")
 					 (t
-					  (:slant italic)))
+					  :slant italic))
   "Face used for editable fields spanning only a single line."
   :group 'widget-faces)