(Ffont_info): Don't call font_close_object.

diff --git a/src/fontset.c b/src/fontset.c
index c61bcae88af1e4ab49443a8ac47fa1058f7b2371..f8c867a6e26441f53fd33293a366d08df65fc8e0 100644 (file)
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -1678,7 +1678,12 @@ If the named font is not yet loaded, return nil.  */)
   XVECTOR (info)->contents[5] = make_number (font->relative_compose);
   XVECTOR (info)->contents[6] = make_number (font->default_ascent);
 
+#if 0
+  /* As font_object is still in FONT_OBJLIST of the entity, we can't
+     close it now.  Perhaps, we should manage font-objects
+     by `reference-count'.  */
   font_close_object (f, font_object);
+#endif
   return info;
 }