diff options
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 4 |
1 files changed, 3 insertions, 1 deletions
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); |