From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 20 Sep 2007 21:24:47 +0000 (+0000)
Subject: (print_object): Handle terminals.
X-Git-Tag: emacs-pretest-23.0.90~10806
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f76c8b1ef303f7294c0c4ef0ebe9f9032350ff65;p=emacs.git

(print_object): Handle terminals.
---

diff --git a/src/print.c b/src/print.c
index cd3d6438bff..a14c041d6a2 100644
--- a/src/print.c
+++ b/src/print.c
@@ -34,6 +34,7 @@ Boston, MA 02110-1301, USA.  */
 #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 @@ print_object (obj, printcharfun, escapeflag)
 	    }
 	  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);