Mercurial > hg > xemacs-beta
diff src/faces.c @ 209:41ff10fd062f r20-4b3
Import from CVS: tag r20-4b3
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:04:58 +0200 |
| parents | e45d5e7c476e |
| children | 78f53ef88e17 |
line wrap: on
line diff
--- a/src/faces.c Mon Aug 13 10:03:54 2007 +0200 +++ b/src/faces.c Mon Aug 13 10:04:58 2007 +0200 @@ -1916,6 +1916,12 @@ bg_inst_list = Fcons (Fcons (list1 (Qtty), Fvector (0, 0)), bg_inst_list); #endif +#ifdef HAVE_W32GUI + fg_inst_list = Fcons (Fcons (list1 (Qw32), build_string ("black")), + fg_inst_list); + bg_inst_list = Fcons (Fcons (list1 (Qw32), build_string ("white")), + bg_inst_list); +#endif set_specifier_fallback (Fget (Vdefault_face, Qforeground, Qnil), fg_inst_list); set_specifier_fallback (Fget (Vdefault_face, Qbackground, Qnil), @@ -1960,6 +1966,10 @@ inst_list = Fcons (Fcons (list1 (Qtty), build_string ("normal")), inst_list); #endif /* HAVE_TTY */ +#ifdef HAVE_W32GUI + inst_list = Fcons (Fcons (list1 (Qw32), build_string ("Courier New")), + inst_list); +#endif /* HAVE_W32GUI */ set_specifier_fallback (Fget (Vdefault_face, Qfont, Qnil), inst_list); }