Commit f76c8b1e authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(print_object): Handle terminals.

parent 49e49fb5
......@@ -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);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment