diff options
| author | Jim Blandy <jimb@redhat.com> | 1991-11-09 01:34:02 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1991-11-09 01:34:02 +0000 |
| commit | 42dcdd5fc73bd14835d58dbef45a617d4332744b (patch) | |
| tree | 85e793a5397ccff084f883f71daa854b76a5bd2e | |
| parent | 90e65f0739fe577304eee18642a726791ff08406 (diff) | |
| download | emacs-42dcdd5fc73bd14835d58dbef45a617d4332744b.tar.gz | |
*** empty log message ***
| -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); |