From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 16 Jan 1993 05:15:30 +0000 (+0000)
Subject: Must run %NOTICE-WINDOW-CHANGES! when doing direct update so that any
X-Git-Tag: 20090517-FFI~8586
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0c0f0ddd89dffab759c85ea92ea3f43fd1e4be63;p=mit-scheme.git

Must run %NOTICE-WINDOW-CHANGES! when doing direct update so that any
changes to the window are handled correctly.
---

diff --git a/v7/src/edwin/bufwin.scm b/v7/src/edwin/bufwin.scm
index 30686b10a..889f7d403 100644
--- a/v7/src/edwin/bufwin.scm
+++ b/v7/src/edwin/bufwin.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: bufwin.scm,v 1.299 1993/01/12 10:50:36 cph Exp $
+;;;	$Id: bufwin.scm,v 1.300 1993/01/16 05:15:30 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -727,21 +727,23 @@
       ((%window-debug-trace window) 'window window 'direct-update!
 				    display-style))
   (and (%window-saved-screen window)
-       (with-screen-in-update (%window-saved-screen window) display-style
-	 (lambda ()
-	   (let ((finished?
-		  (update-buffer-window! window
-					 (%window-saved-screen window)
-					 (%window-saved-x-start window)
-					 (%window-saved-y-start window)
-					 (%window-saved-xl window)
-					 (%window-saved-xu window)
-					 (%window-saved-yl window)
-					 (%window-saved-yu window)
-					 display-style)))
-	     (if finished?
-		 (set-car! (window-redisplay-flags window) false))
-	     finished?)))))
+       (begin
+	 (%notice-window-changes! window)
+	 (with-screen-in-update (%window-saved-screen window) display-style
+	   (lambda ()
+	     (let ((finished?
+		    (update-buffer-window! window
+					   (%window-saved-screen window)
+					   (%window-saved-x-start window)
+					   (%window-saved-y-start window)
+					   (%window-saved-xl window)
+					   (%window-saved-xu window)
+					   (%window-saved-yl window)
+					   (%window-saved-yu window)
+					   display-style)))
+	       (if finished?
+		   (set-car! (window-redisplay-flags window) false))
+	       finished?))))))
 
 (define (update-buffer-window! window screen x-start y-start xl xu yl yu
 			       display-style)