From f76c8b1ef303f7294c0c4ef0ebe9f9032350ff65 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 20 Sep 2007 21:24:47 +0000 Subject: [PATCH] (print_object): Handle terminals. --- src/print.c | 14 ++++++++++++++ 1 file changed, 14 insertions(+) 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 ("#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); -- 2.39.2