From 2670cf8089bb68bebfc37de6f0dc6dcb85668442 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 17 Oct 2001 18:49:38 +0000 Subject: [PATCH] (widget-field-face, widget-single-line-field-face): Define special colors for a tty. --- lisp/ChangeLog | 7 ++++++- lisp/wid-edit.el | 11 +++++++++-- 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 + + * wid-edit.el (widget-field-face, widget-single-line-field-face): + Define special colors for a tty. + 2001-10-17 Francesco Potorti` * comint.el (comint-password-prompt-regexp): Make it less restrictive, letting comint recognise OpenSSH2 passphrase prompts. -2001-10-15 John Wiegley +2001-10-17 John Wiegley * 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) -- 2.39.2