From 25ef2b06eb44dee2cb20559f48abb36b2d29b633 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 31 Jul 2000 15:36:50 +0000 Subject: [PATCH] (toplevel): Support faces on tty's. --- lisp/progmodes/cpp.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/cpp.el b/lisp/progmodes/cpp.el index 172366e2eb3..6cdaec2fb57 100644 --- a/lisp/progmodes/cpp.el +++ b/lisp/progmodes/cpp.el @@ -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 @@ BRANCH should be either nil (false branch), t (true branch) or 'both." ;; 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'. -- 2.39.2