Edwin X/X11: Do NOT halt screen update because of subprocess output.

diff --git a/src/edwin/xterm.scm b/src/edwin/xterm.scm
index 812cd8fdb2ccc11d6d26f541e9e27ba08c849c07..4aff3cc6f39a9d9015321d77175ede845e10c3af 100644 (file)
--- a/src/edwin/xterm.scm
+++ b/src/edwin/xterm.scm
@@ -466,9 +466,8 @@ USA.
                     result))))
            (values
             (lambda ()                 ;halt-update?
-              (or pending-result
-                  (fix:< start end)
-                  (probe 0)))
+              (or (fix:< start end)
+                  (not (queue-empty? queue))))
             (lambda (msec)             ;peek-no-hang
               (or pending-result
                   (and (fix:< start end)

diff --git a/src/x11-screen/x11-screen.scm b/src/x11-screen/x11-screen.scm
index f82160cca080812b93781dc5dabc6ce8346f12d7..b4abd92dfe39b0c663839838b54330ff08fb7f2f 100644 (file)
--- a/src/x11-screen/x11-screen.scm
+++ b/src/x11-screen/x11-screen.scm
@@ -394,9 +394,8 @@ USA.
                     result))))
            (values
             (lambda ()                 ;halt-update?
-              (or pending-result
-                  (fix:< start end)
-                  (probe 0)))
+              (or (fix:< start end)
+                  (not (queue-empty? queue))))
             (lambda (msec)             ;peek-no-hang
               (or pending-result
                   (and (fix:< start end)