diff options
| -rw-r--r-- | lisp/progmodes/cpp.el | 6 |
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. |
| 72 | Can be either light or dark for color screens, mono for monochrome | 72 | Can be either light or dark for color screens, mono for monochrome |
| 73 | screens, and none if you don't use a window system." | 73 | screens, and none if you don't use a window system and don't have |
| 74 | a 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'. |