# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1190323487 0
# Node ID 8ef41e809922c4888e4836e0c4aa881a846cc2fd
# Parent  73c717fa786688136fd68b51c9d9dc75fb155386
(print_object): Handle terminals.

diff -r 73c717fa7866 -r 8ef41e809922 src/print.c
--- a/src/print.c	Thu Sep 20 21:24:14 2007 +0000
+++ b/src/print.c	Thu Sep 20 21:24:47 2007 +0000
@@ -34,6 +34,7 @@
 #include "termchar.h"
 #include "intervals.h"
 #include "blockinput.h"
+#include "termhooks.h"		/* For struct terminal.  */
 
 Lisp_Object Vstandard_output, Qstandard_output;
 
@@ -1965,6 +1966,19 @@
 	    }
 	  PRINTCHAR ('>');
 	}
+      else if (TERMINALP (obj))
+	{
+	  struct terminal *t = XTERMINAL (obj);
+	  strout ("#<terminal ", -1, -1, printcharfun, 0);
+	  sprintf (buf, "%d", t->id);
+	  strout (buf, -1, -1, printcharfun, 0);
+	  if (t->name)
+	    {
+	      strout (" on ", -1, -1, printcharfun, 0);
+	      strout (t->name, -1, -1, printcharfun, 0);
+	    }
+	  PRINTCHAR ('>');
+	}
       else if (HASH_TABLE_P (obj))
 	{
 	  struct Lisp_Hash_Table *h = XHASH_TABLE (obj);