changeset 430:62d4447676c1

*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Sat, 09 Nov 1991 01:34:02 +0000
parents 10b1795f3ae9
children 504d7cdfd311
files src/print.c
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/print.c	Fri Nov 08 01:52:59 1991 +0000
+++ b/src/print.c	Sat Nov 09 01:34:02 1991 +0000
@@ -889,7 +889,9 @@
 
 #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);