diff options
author | Kenichi Handa <[email protected]> | 2008-08-18 12:06:33 +0000 |
---|---|---|
committer | Kenichi Handa <[email protected]> | 2008-08-18 12:06:33 +0000 |
commit | 303d51903a88032596186ee8fb02f08a28f653f9 (patch) | |
tree | 5decba4f1d1c17ecdfe6f2d1d54e4ca35301c71d | |
parent | db716644516fcbddab198410eb78e7ac94765da0 (diff) |
(face_for_char): Add font log.
-rw-r--r-- | src/fontset.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/fontset.c b/src/fontset.c index 3f89cb8686..a343e27e51 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)) { |