# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1219061193 0
# Node ID cc7d396b5612aea6463c15936bf1b24a0a93bf4f
# Parent  1a792d38ec5a22783281e9ac4df7a58037beb636
(face_for_char): Add font log.

diff -r 1a792d38ec5a -r cc7d396b5612 src/fontset.c
--- 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))
     {