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))
     {