comparison 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
comparison
equal deleted inserted replaced
208:f427b8ec4379 209:41ff10fd062f
1914 fg_inst_list = Fcons (Fcons (list1 (Qtty), Fvector (0, 0)), 1914 fg_inst_list = Fcons (Fcons (list1 (Qtty), Fvector (0, 0)),
1915 fg_inst_list); 1915 fg_inst_list);
1916 bg_inst_list = Fcons (Fcons (list1 (Qtty), Fvector (0, 0)), 1916 bg_inst_list = Fcons (Fcons (list1 (Qtty), Fvector (0, 0)),
1917 bg_inst_list); 1917 bg_inst_list);
1918 #endif 1918 #endif
1919 #ifdef HAVE_W32GUI
1920 fg_inst_list = Fcons (Fcons (list1 (Qw32), build_string ("black")),
1921 fg_inst_list);
1922 bg_inst_list = Fcons (Fcons (list1 (Qw32), build_string ("white")),
1923 bg_inst_list);
1924 #endif
1919 set_specifier_fallback (Fget (Vdefault_face, Qforeground, Qnil), 1925 set_specifier_fallback (Fget (Vdefault_face, Qforeground, Qnil),
1920 fg_inst_list); 1926 fg_inst_list);
1921 set_specifier_fallback (Fget (Vdefault_face, Qbackground, Qnil), 1927 set_specifier_fallback (Fget (Vdefault_face, Qbackground, Qnil),
1922 bg_inst_list); 1928 bg_inst_list);
1923 } 1929 }
1958 1964
1959 #ifdef HAVE_TTY 1965 #ifdef HAVE_TTY
1960 inst_list = Fcons (Fcons (list1 (Qtty), build_string ("normal")), 1966 inst_list = Fcons (Fcons (list1 (Qtty), build_string ("normal")),
1961 inst_list); 1967 inst_list);
1962 #endif /* HAVE_TTY */ 1968 #endif /* HAVE_TTY */
1969 #ifdef HAVE_W32GUI
1970 inst_list = Fcons (Fcons (list1 (Qw32), build_string ("Courier New")),
1971 inst_list);
1972 #endif /* HAVE_W32GUI */
1963 set_specifier_fallback (Fget (Vdefault_face, Qfont, Qnil), inst_list); 1973 set_specifier_fallback (Fget (Vdefault_face, Qfont, Qnil), inst_list);
1964 } 1974 }
1965 1975
1966 set_specifier_fallback (Fget (Vdefault_face, Qunderline, Qnil), 1976 set_specifier_fallback (Fget (Vdefault_face, Qunderline, Qnil),
1967 list1 (Fcons (Qnil, Qnil))); 1977 list1 (Fcons (Qnil, Qnil)));