Mercurial > emacs

changeset 44591:9ac5b019b785

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Miles Bader <miles@gnu.org>
date Mon, 15 Apr 2002 06:18:13 +0000
parents 59d5728240b3
children ee06f660f3e7
files lisp/wid-edit.el
diffstat 1 files changed, 10 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- 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)