mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

(try_font_list): New arg PREFER_FACE_FAMILY. If it is

Browse Source 
nonzero, try face's family at first.  Otherwise try FAMILY at
first.
(choose_face_font): If C is a single byte char or latin-1, call
try_font_list with PREFER_FACE_FAMILY 1.
This commit is contained in:
Kenichi Handa 2002-09-26 08:04:18 +00:00
parent fc88015c7e
commit 54580ab203
2 changed files with 29 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ChangeLog
View File

@ -1,3 +1,11 @@
2002-09-26 Kenichi Handa <handa@etl.go.jp>
* xfaces.c (try_font_list): New arg PREFER_FACE_FAMILY. If it is
nonzero, try face's family at first. Otherwise try FAMILY at
first.
(choose_face_font): If C is a single byte char or latin-1, call
try_font_list with PREFER_FACE_FAMILY 1.
2002-09-21 Richard M. Stallman <rms@gnu.org>
* window.c (select_window_1): Don't select frame.

29
src/xfaces.c
View File

@ -510,7 +510,8 @@ static int font_list_1 P_ ((struct frame *, Lisp_Object, Lisp_Object,
static int font_list P_ ((struct frame *, Lisp_Object, Lisp_Object,
Lisp_Object, struct font_name **));
static int try_font_list P_ ((struct frame *, Lisp_Object *,
Lisp_Object, Lisp_Object, struct font_name **));
Lisp_Object, Lisp_Object, struct font_name **,
int));
static int try_alternative_families P_ ((struct frame *f, Lisp_Object,
Lisp_Object, struct font_name **));
static int cmp_font_names P_ ((const void *, const void *));
@ -6324,21 +6325,28 @@ try_alternative_families (f, family, registry, fonts)
match. A value of nil means include fonts of any registry and
encoding.
If PREFER_FACE_FAMILY is nonzero, perfer face's family to FAMILY.
Otherwise, prefer FAMILY.
Return in *FONTS a pointer to a vector of font_name structures for
the fonts matched. Value is the number of fonts found. */
static int
try_font_list (f, attrs, family, registry, fonts)
try_font_list (f, attrs, family, registry, fonts, prefer_face_family)
struct frame *f;
Lisp_Object *attrs;
Lisp_Object family, registry;
struct font_name **fonts;
int prefer_face_family;
{
int nfonts = 0;
Lisp_Object face_family = attrs[LFACE_FAMILY_INDEX];
Lisp_Object try_family;
if (STRINGP (face_family))
nfonts = try_alternative_families (f, face_family, registry, fonts);
try_family = prefer_face_family ? face_family : family;
if (STRINGP (try_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
@ -6346,12 +6354,15 @@ try_font_list (f, attrs, family, registry, fonts)
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 (face_family) && STRINGP (registry)
if (nfonts == 0 && STRINGP (try_family) && STRINGP (registry)
&& xstricmp (SDATA (registry), "mac-roman") == 0)
nfonts = try_alternative_families (f, face_family, Qnil, fonts);
nfonts = try_alternative_families (f, try_family, Qnil, fonts);
#endif
if (nfonts == 0 && !NILP (family))
if (! prefer_face_family)
family = face_family;
if (nfonts == 0 && STRINGP (family))
nfonts = try_alternative_families (f, family, registry, fonts);
/* Try font family of the default face or "fixed". */
@ -6425,7 +6436,9 @@ choose_face_font (f, attrs, fontset, c)
/* Get a list of fonts matching that pattern and choose the
best match for the specified face attributes from it. */
nfonts = try_font_list (f, attrs, XCAR (pattern), XCDR (pattern), &fonts);
nfonts = try_font_list (f, attrs, XCAR (pattern), XCDR (pattern), &fonts,
(SINGLE_BYTE_CHAR_P (c)
|| CHAR_CHARSET (c) == charset_latin_iso8859_1));
width_ratio = (SINGLE_BYTE_CHAR_P (c)
? 1
: CHARSET_WIDTH (CHAR_CHARSET (c)));