From 5b75bf1f3048a464a6adbdf7ee6f310a50d96148 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sat, 27 Aug 2016 09:14:13 -0700 Subject: [PATCH] Edwin X/X11: Do NOT halt screen update because of subprocess output. --- src/edwin/xterm.scm | 5 ++--- src/x11-screen/x11-screen.scm | 5 ++--- 2 files changed, 4 insertions(+), 6 deletions(-) diff --git a/src/edwin/xterm.scm b/src/edwin/xterm.scm index 812cd8fdb..4aff3cc6f 100644 --- 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 f82160cca..b4abd92df 100644 --- 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) -- 2.25.1