Attempt to detect process status changes more reliably.

diff --git a/v7/src/edwin/xterm.scm b/v7/src/edwin/xterm.scm
index 2f5b10a9b1e64754caf469be0ff1bfd527f4c296..03229aa1c1af5e95b94d59790ea874f3f449b5c0 100644 (file)
--- a/v7/src/edwin/xterm.scm
+++ b/v7/src/edwin/xterm.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: xterm.scm,v 1.44 1993/08/20 00:17:32 cph Exp $
+;;;    $Id: xterm.scm,v 1.45 1993/09/09 22:40:36 cph Exp $
 ;;;
 ;;;    Copyright (c) 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -505,7 +505,14 @@
                   (case flag
                     ((#F) #f)
                     ((PROCESS-STATUS-CHANGE) event:process-status)
-                    ((INTERRUPT) (loop))
+                    ((INTERRUPT)
+                     ;; Must independently check for this condition
+                     ;; because TEST-FOR-INPUT-ON-DESCRIPTOR can't
+                     ;; reliably produce the PROCESS-STATUS-CHANGE
+                     ;; result.
+                     (if (process-status-changes?)
+                         event:process-status
+                         (loop)))
                     (else (read-event-1 display block?))))))))))
 
 (define (preview-event-stream)