# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1215653159 0
# Node ID 2c94c05f0d8985fd6fab1d9b73fdf4f229abb3b5
# Parent  8fc8962839b792ccdeef6361fc639942a5689583
(xfont_open): Log the reason of failure.

diff -r 8fc8962839b7 -r 2c94c05f0d89 src/xfont.c
--- a/src/xfont.c	Wed Jul 09 15:35:29 2008 +0000
+++ b/src/xfont.c	Thu Jul 10 01:25:59 2008 +0000
@@ -509,7 +509,10 @@
      font.  */
   registry = AREF (entity, FONT_REGISTRY_INDEX);
   if (font_registry_charsets (registry, &encoding, &repertory) < 0)
-    return Qnil;
+    {
+      font_add_log ("  x:unknown registry", registry, Qnil);
+      return Qnil;
+    }
 
   if (XINT (AREF (entity, FONT_SIZE_INDEX)) != 0)
     pixel_size = XINT (AREF (entity, FONT_SIZE_INDEX));
@@ -522,7 +525,10 @@
     }
   len = font_unparse_xlfd (entity, pixel_size, name, 256);
   if (len <= 0)
-    return Qnil;
+    {
+      font_add_log ("  x:unparse failed", entity, Qnil);
+      return Qnil;
+    }
 
   BLOCK_INPUT;
   x_catch_errors (display);
@@ -562,7 +568,10 @@
   UNBLOCK_INPUT;
 
   if (! xfont)
-    return Qnil;
+    {
+      font_add_log ("  x:open failed", build_string (name), Qnil);
+      return Qnil;
+    }
 
   font_object = font_make_object (VECSIZE (struct xfont_info),
 				  entity, pixel_size);