mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 07:11:34 -08:00
Code Issues Projects Releases Wiki Activity

(FONTSET_OBJLIST): New macro.

Browse source 
(fontset_find_font): Update font-object list of the fontset.
(free_realized_fontset): New function.
(free_face_fontset): Call free_realized_fontset.
(Ffont_info): Call font_close_object only when enable_font_backend
is set.
This commit is contained in:
Kenichi Handa 2008-02-17 02:03:44 +00:00
parent 3370d9f5b3
commit 9459b1e901
1 changed files with 21 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/fontset.c
View file

@ -303,6 +303,7 @@ fontset_id_valid_p (id)
/* Macros to access special values of (realized) FONTSET. */
#define FONTSET_BASE(fontset) XCHAR_TABLE (fontset)->extras[2]
#define FONTSET_FRAME(fontset) XCHAR_TABLE (fontset)->extras[3]
#define FONTSET_OBJLIST(fontset) XCHAR_TABLE (fontset)->extras[4]
#define FONTSET_NOFONT_FACE(fontset) XCHAR_TABLE (fontset)->extras[5]
#define FONTSET_REPERTORY(fontset) XCHAR_TABLE (fontset)->extras[6]
#define FONTSET_DEFAULT(fontset) XCHAR_TABLE (fontset)->extras[7]
@ -694,6 +695,8 @@ fontset_find_font (fontset, c, face, id, fallback)
FONT_ENTITY_SET_NOT_LOADABLE (font_entity);
continue;
}
FONTSET_OBJLIST (fontset)
= Fcons (font_object, FONTSET_OBJLIST (fontset));
ASET (elt, 3, font_object);
if (has_char < 0)
{
@ -912,6 +915,21 @@ fontset_ascii (id)
return elt;
}
void
free_realized_fontset (f, fontset)
FRAME_PTR f;
Lisp_Object fontset;
{
int i;
Lisp_Object tail;
return;
for (tail = FONTSET_OBJLIST (fontset); CONSP (tail); tail = XCDR (tail))
{
xassert (FONT_OBJECT_P (XCAR (tail)));
font_close_object (f, XCAR (tail));
}
}
/* Free fontset of FACE defined on frame F. Called from
free_realized_face. */
@ -926,6 +944,7 @@ free_face_fontset (f, face)
fontset = FONTSET_FROM_ID (face->fontset);
xassert (!NILP (fontset) && ! BASE_FONTSET_P (fontset));
xassert (f == XFRAME (FONTSET_FRAME (fontset)));
free_realized_fontset (f, fontset);
ASET (Vfontset_table, face->fontset, Qnil);
if (face->fontset < next_fontset_id)
next_fontset_id = face->fontset;
@ -936,6 +955,7 @@ free_face_fontset (f, face)
fontset = AREF (Vfontset_table, id);
xassert (!NILP (fontset) && ! BASE_FONTSET_P (fontset));
xassert (f == XFRAME (FONTSET_FRAME (fontset)));
free_realized_fontset (f, fontset);
ASET (Vfontset_table, id, Qnil);
if (id < next_fontset_id)
next_fontset_id = face->fontset;
@ -1966,7 +1986,7 @@ If the named font is not yet loaded, return nil. */)
XVECTOR (info)->contents[6] = make_number (fontp->default_ascent);
#ifdef USE_FONT_BACKEND
if (! NILP (font_object))
if (enable_font_backend && ! NILP (font_object))
font_close_object (f, font_object);
#endif /* USE_FONT_BACKEND */
return info;