Mercurial > emacs
changeset 30541:d5e4d3d5012c
(toplevel): Support faces on tty's.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 31 Jul 2000 15:36:50 +0000 |
| parents | ed5f60298be9 |
| children | f03ab02d1f4e |
| files | lisp/progmodes/cpp.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/cpp.el Mon Jul 31 15:35:51 2000 +0000 +++ b/lisp/progmodes/cpp.el Mon Jul 31 15:36:50 2000 +0000 @@ -70,7 +70,8 @@ (defcustom cpp-face-type 'light "*Indicate what background face type you prefer. Can be either light or dark for color screens, mono for monochrome -screens, and none if you don't use a window system." +screens, and none if you don't use a window system and don't have +a color-capable display." :options '(light dark mono nil) :type 'symbol :group 'cpp) @@ -797,7 +798,8 @@ ;; Create entry for face with background COLOR. (cons color (cons 'background-color color))) -(cpp-choose-default-face (if window-system cpp-face-type 'none)) +(cpp-choose-default-face + (if (or window-system (display-color-p)) cpp-face-type 'none)) (defun cpp-face-name (face) ;; Return the name of FACE from `cpp-face-all-list'.