From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 29 Jan 1993 23:05:40 +0000 (+0000)
Subject: Procedure that tests to see if window needs redisplay must first call
X-Git-Tag: 20090517-FFI~8561
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7ecb1b4dc78f9ed1df78c6054e4e03b3d889b81f;p=mit-scheme.git

Procedure that tests to see if window needs redisplay must first call
%NOTICE-WINDOW-CHANGES.  A reply of #T permits the use of direct
output, which is wrong if there are buffer changes that haven't yet
been written to the screen.
---

diff --git a/v7/src/edwin/bufwiu.scm b/v7/src/edwin/bufwiu.scm
index 3848c5ea7..d6513567d 100644
--- a/v7/src/edwin/bufwiu.scm
+++ b/v7/src/edwin/bufwiu.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: bufwiu.scm,v 1.23 1993/01/12 22:06:34 bal Exp $
+;;;	$Id: bufwiu.scm,v 1.24 1993/01/29 23:05:40 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -403,6 +403,7 @@
 ;;; redisplay.
 
 (define (buffer-window/needs-redisplay? window)
+  (%notice-window-changes! window)
   (or (window-needs-redisplay? window)
       (not (%window-saved-screen window))
       (screen-needs-update? (%window-saved-screen window))))
@@ -540,4 +541,4 @@
       (%set-inferior-y-start! (%window-cursor-inferior window) end-y))
     (update-modified-tick! window)
     (set-interrupt-enables! mask)
-    unspecific))
+    unspecific))
\ No newline at end of file