This turns thread_state into a pseudovector and updates various bits

of Emacs to cope.

1 files changed, 12 insertions, 0 deletions

diff --git a/src/print.c b/src/print.c
index 23ad6c0a256..4537521b9fa 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1943,6 +1943,18 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag
 	    }
 	  PRINTCHAR ('>');
 	}
+      else if (THREADP (obj))
+	{
+	  strout ("#<thread ", -1, -1, printcharfun);
+	  if (STRINGP (XTHREAD (obj)->name))
+	    print_string (XTHREAD (obj)->name, printcharfun);
+	  else
+	    {
+	      int len = sprintf (buf, "%p", XTHREAD (obj));
+	      strout (buf, len, len, printcharfun);
+	    }
+	  PRINTCHAR ('>');
+	}
       else
 	{
 	  ptrdiff_t size = ASIZE (obj);