From 9fe389a61635fe22e9d0d16be6c4020b81c3e702 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 14 May 1996 01:07:46 +0000
Subject: [PATCH] When doing redisplay in a synchronous subprocess, update once
 before starting I/O loop.

---
 v7/src/edwin/process.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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?)
-- 
2.25.1