# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 965057810 0
# Node ID d5e4d3d5012ce2e9c420c1cb0eb40577b679e26c
# Parent  ed5f60298be95bd1401c797ef04c8854feb61214
(toplevel): Support faces on tty's.

diff -r ed5f60298be9 -r d5e4d3d5012c lisp/progmodes/cpp.el
--- 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'.