andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(try_font_list) [MAC_OS]: Try font family name

Browse source 
beginning with that for ASCII.
This commit is contained in:
YAMAMOTO Mitsuharu 2005-07-13 09:13:19 +00:00
parent 95dfb19275
commit 17d0f03b64
1 changed files with 15 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/xfaces.c
View file

@ -6745,14 +6745,21 @@ try_font_list (f, attrs, family, registry, fonts, prefer_face_family)
nfonts = try_alternative_families (f, try_family, registry, fonts);
#ifdef MAC_OS
/* When realizing the default face and a font spec does not matched
exactly, Emacs looks for ones with the same registry as the
default font. On the Mac, this is mac-roman, which does not work
if the family is -etl-fixed, e.g. The following widens the
choices and fixes that problem. */
if (nfonts == 0 && STRINGP (try_family) && STRINGP (registry)
&& xstricmp (SDATA (registry), "mac-roman") == 0)
nfonts = try_alternative_families (f, try_family, Qnil, fonts);
if (nfonts == 0 && STRINGP (try_family) && STRINGP (registry))
if (xstricmp (SDATA (registry), "mac-roman") == 0)
/* When realizing the default face and a font spec does not
matched exactly, Emacs looks for ones with the same registry
as the default font. On the Mac, this is mac-roman, which
does not work if the family is -etl-fixed, e.g. The
following widens the choices and fixes that problem. */
nfonts = try_alternative_families (f, try_family, Qnil, fonts);
else if (SBYTES (try_family) > 0
&& SREF (try_family, SBYTES (try_family) - 1) != '*')
/* Some Central European/Cyrillic font family names have the
Roman counterpart name as their prefix. */
nfonts = try_alternative_families (f, concat2 (try_family,
build_string ("*")),
registry, fonts);
#endif
if (EQ (try_family, family))