From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 25 Apr 1989 01:58:05 +0000 (+0000)
Subject: Call `keyboard-active?' in the `flush-output' operation, to allow the
X-Git-Tag: 20090517-FFI~12122
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3debec448fccf4431c5c16e906491e568d8754f8;p=mit-scheme.git

Call `keyboard-active?' in the `flush-output' operation, to allow the
screen to process input events periodically.  This isn't the "right
thing", but it will help.
---

diff --git a/v7/src/edwin/winout.scm b/v7/src/edwin/winout.scm
index d2719db66..5edad602c 100644
--- a/v7/src/edwin/winout.scm
+++ b/v7/src/edwin/winout.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/winout.scm,v 1.1 1989/03/14 08:08:57 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/winout.scm,v 1.2 1989/04/25 01:58:05 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -94,6 +94,10 @@
 	  (region-insert-string! point string)))))
 
 (define (operation/flush-output port)
+  ;; Calling `keyboard-active?' gives the screen abstraction a chance
+  ;; to do refresh if it needs to (e.g. if an X exposure event is
+  ;; received).
+  (keyboard-active? 0)
   (let ((window (output-port/state port)))
     (if (window-needs-redisplay? window)
 	(window-direct-update! window false))))