From 3331f0d9cbdf1b59ec0312f83617e116007aaf7a Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 25 Feb 1992 23:32:03 +0000 Subject: [PATCH] Don't update screens unless going into input wait. --- v7/src/edwin/tterm.scm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/v7/src/edwin/tterm.scm b/v7/src/edwin/tterm.scm index c605b68e9..b8f7e53c5 100644 --- a/v7/src/edwin/tterm.scm +++ b/v7/src/edwin/tterm.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/tterm.scm,v 1.14 1992/02/18 14:11:32 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/tterm.scm,v 1.15 1992/02/25 23:32:03 cph Exp $ Copyright (c) 1990-92 Massachusetts Institute of Technology @@ -185,9 +185,14 @@ MIT in each case. |# (let ((read-until-result (lambda (block?) (let loop () - (update-screens! false) (or (fix:< start end) - (let ((event (read-event block?))) + (let ((event + (if block? + (or (read-event false) + (begin + (update-screens! false) + (read-event true))) + (read-event false)))) (if (fix:fixnum? event) (begin (process-change-event event) -- 2.25.1