From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 14 May 1996 01:07:46 +0000 (+0000)
Subject: When doing redisplay in a synchronous subprocess, update once before
X-Git-Tag: 20090517-FFI~5522
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9fe389a61635fe22e9d0d16be6c4020b81c3e702;p=mit-scheme.git

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 198df1cfc..46db1fcc1 100644
--- 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?)