mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-07 08:00:48 -08:00
Code Issues Projects Releases Wiki Activity

(toplevel): Support faces on tty's.

Browse source
This commit is contained in:
Eli Zaretskii 2000-07-31 15:36:50 +00:00
parent 364ce449bc
commit 25ef2b06eb
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/cpp.el
View file

@ -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'.