From 7741db431856583891d473b163f0b48811a4e6f8 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 17 Oct 2001 18:41:54 +0000 Subject: [PATCH] (widget-field-face, widget-single-line-field-face): Define special colors for a tty. --- lisp/ChangeLog | 5 +++++ lisp/wid-edit.el | 11 +++++++++-- 2 files changed, 14 insertions(+), 2 deletions(-) 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 + + * wid-edit.el (widget-field-face, widget-single-line-field-face): + Define special colors for a tty. + 2001-10-17 Miles Bader * 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) -- 2.39.2