*** empty log message ***

1991-11-09 01:34:02 +00:00
parent 90e65f0739
commit 42dcdd5fc7
1 changed files with 3 additions and 1 deletions
--- a/src/print.c
+++ b/src/print.c
@@ -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);