aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes/cpp.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/progmodes/cpp.el')
-rw-r--r--lisp/progmodes/cpp.el6
1 files 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 @@
70(defcustom cpp-face-type 'light 70(defcustom cpp-face-type 'light
71 "*Indicate what background face type you prefer. 71 "*Indicate what background face type you prefer.
72Can be either light or dark for color screens, mono for monochrome 72Can be either light or dark for color screens, mono for monochrome
73screens, and none if you don't use a window system." 73screens, and none if you don't use a window system and don't have
74a color-capable display."
74 :options '(light dark mono nil) 75 :options '(light dark mono nil)
75 :type 'symbol 76 :type 'symbol
76 :group 'cpp) 77 :group 'cpp)
@@ -797,7 +798,8 @@ BRANCH should be either nil (false branch), t (true branch) or 'both."
797 ;; Create entry for face with background COLOR. 798 ;; Create entry for face with background COLOR.
798 (cons color (cons 'background-color color))) 799 (cons color (cons 'background-color color)))
799 800
800(cpp-choose-default-face (if window-system cpp-face-type 'none)) 801(cpp-choose-default-face
802 (if (or window-system (display-color-p)) cpp-face-type 'none))
801 803
802(defun cpp-face-name (face) 804(defun cpp-face-name (face)
803 ;; Return the name of FACE from `cpp-face-all-list'. 805 ;; Return the name of FACE from `cpp-face-all-list'.