# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1201564796 0
# Node ID 203e06d5def6c9bc5d044774a3f88dc082655bbc
# Parent  259402c3ba6a1b05f7149d8888c01d956a1f36fd
(font_find_for_lface): Fix previous change.  Be sure to
close a font-object.
(Ffont_shape_text): If FONT_OBJECT is not a font-object, just
return TO.

diff -r 259402c3ba6a -r 203e06d5def6 src/font.c
--- a/src/font.c	Mon Jan 28 07:12:03 2008 +0000
+++ b/src/font.c	Mon Jan 28 23:59:56 2008 +0000
@@ -2703,6 +2703,7 @@
   if (NILP (val))
     return Qnil;
   result = font_has_char (f, val, c);
+  font_close_object (f, val);
   if (result > 0)
     return val;
   return Qnil;
@@ -3566,6 +3567,9 @@
 	args_out_of_range_3 (string, from, to);
     }
 
+  if (! FONT_OBJECT_P (font_object))
+    return to;
+
   CHECK_FONT_GET_OBJECT (font_object, font);
   len = end - start;
   gstring = Ffont_make_gstring (font_object, make_number (len));