From 42dcdd5fc73bd14835d58dbef45a617d4332744b Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@redhat.com>
Date: Sat, 9 Nov 1991 01:34:02 +0000
Subject: [PATCH] *** empty log message ***

---
 src/print.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/print.c b/src/print.c
index 7a2beb0beda..3bf0796c061 100644
--- 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);