# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1210729198 0
# Node ID abd9e2a3d73982218d9f2ca242f9f5bf99b115df
# Parent  45602a11979ba9cddfd6da40b17dc03a7ebd562d
Include font.h.
(print_object): Handle font-related objects.

diff -r 45602a11979b -r abd9e2a3d739 src/print.c
--- a/src/print.c	Wed May 14 01:39:27 2008 +0000
+++ b/src/print.c	Wed May 14 01:39:58 2008 +0000
@@ -36,6 +36,7 @@
 #include "intervals.h"
 #include "blockinput.h"
 #include "termhooks.h"		/* For struct terminal.  */
+#include "font.h"
 
 Lisp_Object Vstandard_output, Qstandard_output;
 
@@ -2129,6 +2130,34 @@
 	  strout (buf, -1, -1, printcharfun, 0);
 	  PRINTCHAR ('>');
 	}
+      else if (FONTP (obj))
+	{
+	  EMACS_INT i;
+
+	  if (! FONT_OBJECT_P (obj))
+	    {
+	      if (FONT_SPEC_P (obj))
+		strout ("#<font-spec", -1, -1, printcharfun, 0);
+	      else
+		strout ("#<font-entity", -1, -1, printcharfun, 0);
+	      for (i = 0; i < FONT_SPEC_MAX; i++)
+		{
+		  PRINTCHAR (' ');
+		  if (i < FONT_WEIGHT_INDEX || i > FONT_WIDTH_INDEX)
+		    print_object (AREF (obj, i), printcharfun, escapeflag);
+		  else
+		    print_object (font_style_symbolic (obj, i, 0),
+				  printcharfun, escapeflag);
+		}
+	    }
+	  else
+	    {
+	      strout ("#<font-object ", -1, -1, printcharfun, 0);
+	      print_object (AREF (obj, FONT_NAME_INDEX), printcharfun,
+			    escapeflag);
+	    }
+	  PRINTCHAR ('>');
+	}
       else
 	{
 	  EMACS_INT size = XVECTOR (obj)->size;