Commit 42dcdd5f authored by Jim Blandy's avatar Jim Blandy
Browse files

*** empty log message ***

parent 90e65f07
......@@ -889,7 +889,9 @@ print (obj, printcharfun, escapeflag)
#ifdef MULTI_SCREEN
case Lisp_Screen:
strout ("#<screen ", -1, printcharfun);
strout (((XSCREEN (obj)->display.nothing == 0)
? "#<dead screen " : "#<screen "),
-1, printcharfun);
print_string (XSCREEN (obj)->name, printcharfun);
sprintf (buf, " 0x%x", XFASTINT (XSCREEN (obj)));
strout (buf, -1, printcharfun);
......
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