From 90bf6510bc698886202e5c875f3a77fade8dbc79 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 3 Apr 1991 04:36:24 +0000
Subject: [PATCH] Fix bug that prevented override message from being written at
 the right time in some circumstances.

---
 v7/src/edwin/bufwin.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/bufwin.scm b/v7/src/edwin/bufwin.scm
index d980a59f2..feb8d077e 100644
--- a/v7/src/edwin/bufwin.scm
+++ b/v7/src/edwin/bufwin.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/bufwin.scm,v 1.293 1991/04/03 04:00:46 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/bufwin.scm,v 1.294 1991/04/03 04:36:24 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -761,7 +761,8 @@
   (%set-window-override-string! window false)
   (%set-window-changes-daemon! window (make-changes-daemon window))
   (%set-window-clip-daemon! window (make-clip-daemon window))
-  (%set-window-debug-trace! window false))
+  (%set-window-debug-trace! window false)
+  (%set-window-saved-screen! window false))
 
 (define (%release-window-outlines! window)
   (%set-window-start-outline! window false)
@@ -774,7 +775,6 @@
   (if (%window-start-line-mark window)
       (clear-start-mark! window))
   (%set-window-point-moved?! window false)
-  (%set-window-saved-screen! window false)
   (%clear-window-incremental-redisplay-state! window))
 
 (define (%clear-window-incremental-redisplay-state! window)
-- 
2.25.1