From 608f5d60c8e74df04eeb595b0aff1c7a0c4d505c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 3 Apr 1991 04:00:46 +0000
Subject: [PATCH] Fix bug that prevented the typein window from being correctly
 updated when a message was erased.

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

diff --git a/v7/src/edwin/bufwin.scm b/v7/src/edwin/bufwin.scm
index 228b17453..d980a59f2 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.292 1991/04/02 19:55:19 cph Exp $
+;;;	$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 $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -774,6 +774,7 @@
   (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)
@@ -790,7 +791,6 @@
 	(%set-window-current-start-mark! window false)
 	(mark-temporary! (%window-current-end-mark window))
 	(%set-window-current-end-mark! window false)))
-  (%set-window-saved-screen! window false)
   (%clear-window-outstanding-changes! window))
 
 (define-integrable (%clear-window-outstanding-changes! window)
@@ -1084,9 +1084,7 @@ This number is a percentage, where 0 is the window's top and 100 the bottom."
 	(without-interrupts
 	 (lambda ()
 	   (%set-window-override-string! window false)
-	   (update-blank-inferior! window true)
-	   (update-cursor! window)
-	   (window-needs-redisplay! window))))))
+	   (buffer-window/redraw! window))))))
 
 (define (update-override-string! window screen x-start y-start xl xu yl yu)
   ;; This should probably update like any other string, paying
-- 
2.25.1