From 303d51903a88032596186ee8fb02f08a28f653f9 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 18 Aug 2008 12:06:33 +0000 Subject: [PATCH] (face_for_char): Add font log. --- src/fontset.c | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/fontset.c b/src/fontset.c index 3f89cb86866..a343e27e510 100644 --- a/src/fontset.c +++ b/src/fontset.c @@ -872,7 +872,7 @@ face_for_char (f, face, c, pos, object) int c, pos; Lisp_Object object; { - Lisp_Object fontset, rfont_def; + Lisp_Object fontset, rfont_def, charset; int face_id; int id; @@ -884,11 +884,12 @@ face_for_char (f, face, c, pos, object) xassert (!BASE_FONTSET_P (fontset)); if (pos < 0) - id = -1; + { + id = -1; + charset = Qnil; + } else { - Lisp_Object charset; - charset = Fget_char_property (make_number (pos), Qcharset, object); if (NILP (charset)) id = -1; @@ -903,6 +904,7 @@ face_for_char (f, face, c, pos, object) } } + font_add_log ("finding a font for", Fcons (make_number (c), charset), Qnil); rfont_def = fontset_font (fontset, c, face, id); if (VECTORP (rfont_def)) { -- 2.39.2