Mercurial > hg > xemacs-beta

comparison src/faces.c @ 3918:049dc907c17a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-04-22 19:58:27 by aidan] Make the X11 font menu work again, server side X11 with Mule.
author aidan
date Sun, 22 Apr 2007 19:58:59 +0000
parents d6f975442bd3
children 26dccfc8fa60
comparison
equal deleted inserted replaced
3917:b8ded6c3f2a4 3918:049dc907c17a
2009 return new_name; 2009 return new_name;
2010 } 2010 }
2011 2011
2012 #ifdef MULE 2012 #ifdef MULE
2013 2013
2014 Lisp_Object Qone_dimensional, Qtwo_dimensional; 2014 Lisp_Object Qone_dimensional, Qtwo_dimensional, Qx_coverage_instantiator;
2015 2015
2016 DEFUN ("specifier-tag-one-dimensional-p", 2016 DEFUN ("specifier-tag-one-dimensional-p",
2017 Fspecifier_tag_one_dimensional_p, 2017 Fspecifier_tag_one_dimensional_p,
2018 2, 2, 0, /* 2018 2, 2, 0, /*
2019 Return non-nil if (charset-dimension CHARSET) is 1. 2019 Return non-nil if (charset-dimension CHARSET) is 1.
2106 DEFSUBR (Fcopy_face); 2106 DEFSUBR (Fcopy_face);
2107 2107
2108 #ifdef MULE 2108 #ifdef MULE
2109 DEFSYMBOL (Qone_dimensional); 2109 DEFSYMBOL (Qone_dimensional);
2110 DEFSYMBOL (Qtwo_dimensional); 2110 DEFSYMBOL (Qtwo_dimensional);
2111 DEFSYMBOL (Qx_coverage_instantiator);
2112
2111 /* I would much prefer these were in Lisp. */ 2113 /* I would much prefer these were in Lisp. */
2112 DEFSUBR (Fspecifier_tag_one_dimensional_p); 2114 DEFSUBR (Fspecifier_tag_one_dimensional_p);
2113 DEFSUBR (Fspecifier_tag_two_dimensional_p); 2115 DEFSUBR (Fspecifier_tag_two_dimensional_p);
2114 DEFSUBR (Fspecifier_tag_initial_stage_p); 2116 DEFSUBR (Fspecifier_tag_initial_stage_p);
2115 DEFSUBR (Fspecifier_tag_final_stage_p); 2117 DEFSUBR (Fspecifier_tag_final_stage_p);
2306 define_specifier_tag(Qfinal, Qnil, 2308 define_specifier_tag(Qfinal, Qnil,
2307 intern ("specifier-tag-final-stage-p")); 2309 intern ("specifier-tag-final-stage-p"));
2308 2310
2309 define_specifier_tag (Qencode_as_utf_8, Qnil, 2311 define_specifier_tag (Qencode_as_utf_8, Qnil,
2310 intern("specifier-tag-encode-as-utf-8-p")); 2312 intern("specifier-tag-encode-as-utf-8-p"));
2313
2314 /* This tag is used to group those instantiators made available in the
2315 fallback for the sake of coverage of obscure characters, notably
2316 Markus Kuhn's misc-fixed fonts. They will be copied from the fallback
2317 when the default face is determined from X resources at startup. */
2318 define_specifier_tag (Qx_coverage_instantiator, Qnil, Qnil);
2319
2311 #endif /* MULE */ 2320 #endif /* MULE */
2312 2321
2313 #ifdef USE_XFT 2322 #ifdef USE_XFT
2314 for (fontptr = fonts + countof(fonts) - 1; fontptr >= fonts; fontptr--) 2323 for (fontptr = fonts + countof(fonts) - 1; fontptr >= fonts; fontptr--)
2315 inst_list = Fcons (Fcons (list1 (device_symbol), 2324 inst_list = Fcons (Fcons (list1 (device_symbol),
2332 handling them (well, chiefly, it's not up to handling Ethiopic--we do 2341 handling them (well, chiefly, it's not up to handling Ethiopic--we do
2333 have charset-specific fallbacks for the East Asian charsets.) */ 2342 have charset-specific fallbacks for the East Asian charsets.) */
2334 inst_list = 2343 inst_list =
2335 Fcons 2344 Fcons
2336 (Fcons 2345 (Fcons
2337 (list3(device_symbol, Qtwo_dimensional, Qfinal), 2346 (list4(device_symbol, Qtwo_dimensional, Qfinal, Qx_coverage_instantiator),
2338 build_string 2347 build_string
2339 ("-misc-fixed-medium-r-normal--15-140-75-75-c-90-iso10646-1")), 2348 ("-misc-fixed-medium-r-normal--15-140-75-75-c-90-iso10646-1")),
2340 inst_list); 2349 inst_list);
2341 2350
2342 /* Use Markus Kuhn's version of misc-fixed as the font for the font for 2351 /* Use Markus Kuhn's version of misc-fixed as the font for the font for
2344 that charset falls back to iso10646-1. */ 2353 that charset falls back to iso10646-1. */
2345 2354
2346 inst_list = 2355 inst_list =
2347 Fcons 2356 Fcons
2348 (Fcons 2357 (Fcons
2349 (list3(device_symbol, Qone_dimensional, Qfinal), 2358 (list4(device_symbol, Qone_dimensional, Qfinal, Qx_coverage_instantiator),
2350 build_string 2359 build_string
2351 ("-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-iso10646-1")), 2360 ("-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-iso10646-1")),
2352 inst_list); 2361 inst_list);
2353 2362
2354 for (fontptr = fonts + countof(fonts) - 1; fontptr >= fonts; fontptr--) 2363 for (fontptr = fonts + countof(fonts) - 1; fontptr >= fonts; fontptr--)
2364 redisplay. */ 2373 redisplay. */
2365 2374
2366 inst_list = 2375 inst_list =
2367 Fcons 2376 Fcons
2368 (Fcons 2377 (Fcons
2369 (list3(device_symbol, Qencode_as_utf_8, Qinitial), 2378 (list4(device_symbol, Qencode_as_utf_8, Qinitial, Qx_coverage_instantiator),
2370 build_string 2379 build_string
2371 ("-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-iso10646-1")), 2380 ("-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-iso10646-1")),
2372 inst_list); 2381 inst_list);
2373 2382
2374 #endif /* MULE */ 2383 #endif /* MULE */