6745 |
nfonts = try_alternative_families (f, try_family, registry, fonts); |
nfonts = try_alternative_families (f, try_family, registry, fonts); |
6746 |
|
|
6747 |
#ifdef MAC_OS |
#ifdef MAC_OS |
6748 |
/* When realizing the default face and a font spec does not matched |
if (nfonts == 0 && STRINGP (try_family) && STRINGP (registry)) |
6749 |
exactly, Emacs looks for ones with the same registry as the |
if (xstricmp (SDATA (registry), "mac-roman") == 0) |
6750 |
default font. On the Mac, this is mac-roman, which does not work |
/* When realizing the default face and a font spec does not |
6751 |
if the family is -etl-fixed, e.g. The following widens the |
matched exactly, Emacs looks for ones with the same registry |
6752 |
choices and fixes that problem. */ |
as the default font. On the Mac, this is mac-roman, which |
6753 |
if (nfonts == 0 && STRINGP (try_family) && STRINGP (registry) |
does not work if the family is -etl-fixed, e.g. The |
6754 |
&& xstricmp (SDATA (registry), "mac-roman") == 0) |
following widens the choices and fixes that problem. */ |
6755 |
nfonts = try_alternative_families (f, try_family, Qnil, fonts); |
nfonts = try_alternative_families (f, try_family, Qnil, fonts); |
6756 |
|
else if (SBYTES (try_family) > 0 |
6757 |
|
&& SREF (try_family, SBYTES (try_family) - 1) != '*') |
6758 |
|
/* Some Central European/Cyrillic font family names have the |
6759 |
|
Roman counterpart name as their prefix. */ |
6760 |
|
nfonts = try_alternative_families (f, concat2 (try_family, |
6761 |
|
build_string ("*")), |
6762 |
|
registry, fonts); |
6763 |
#endif |
#endif |
6764 |
|
|
6765 |
if (EQ (try_family, family)) |
if (EQ (try_family, family)) |