Mercurial > emacs
changeset 97539:cc7d396b5612
(face_for_char): Add font log.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 18 Aug 2008 12:06:33 +0000 |
parents | 1a792d38ec5a |
children | af5607f15f32 |
files | src/fontset.c |
diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fontset.c Mon Aug 18 12:05:30 2008 +0000 +++ b/src/fontset.c Mon Aug 18 12:06:33 2008 +0000 @@ -872,7 +872,7 @@ 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 @@ 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 @@ } } + 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)) {