When doing redisplay in a synchronous subprocess, update once before

starting I/O loop.

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index 198df1cfc307ed4bfe4c414d9c3c756bc460d27f..46db1fcc16fd6b30e733949dd0c0cc833e3d9599 100644 (file)
--- a/v7/src/edwin/process.scm
+++ b/v7/src/edwin/process.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: process.scm,v 1.45 1996/05/14 00:13:04 cph Exp $
+;;;    $Id: process.scm,v 1.46 1996/05/14 01:07:46 cph Exp $
 ;;;
 ;;;    Copyright (c) 1991-96 Massachusetts Institute of Technology
 ;;;
@@ -619,6 +619,7 @@ after the listing is made.)"
     (lambda (copy-input)
       (call-with-output-copier process output-mark
        (lambda (copy-output)
+         (if allow-redisplay? (update-screens! #f))
          (let loop ()
            (copy-input)
            (if (and (> (copy-output) 0) allow-redisplay?)