diff options
author | Eli Zaretskii <[email protected]> | 2001-10-17 18:49:38 +0000 |
---|---|---|
committer | Eli Zaretskii <[email protected]> | 2001-10-17 18:49:38 +0000 |
commit | 2670cf8089bb68bebfc37de6f0dc6dcb85668442 (patch) | |
tree | f1b29a82127a786f3d69df195f7bc9b6cce2c5ad /lisp | |
parent | c5ba561a3215c495232cfae66fa88cf6e7aae6e5 (diff) |
(widget-field-face, widget-single-line-field-face):
Define special colors for a tty.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 7 | ||||
-rw-r--r-- | lisp/wid-edit.el | 11 |
2 files changed, 15 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 98f1fd8a07..031cdd4c4c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,9 +1,14 @@ +2001-10-17 Eli Zaretskii <[email protected]> + + * wid-edit.el (widget-field-face, widget-single-line-field-face): + Define special colors for a tty. + 2001-10-17 Francesco Potorti` <[email protected]> * comint.el (comint-password-prompt-regexp): Make it less restrictive, letting comint recognise OpenSSH2 passphrase prompts. -2001-10-15 John Wiegley <[email protected]> +2001-10-17 John Wiegley <[email protected]> * 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 dad3082ace..71af16d28b 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) |