From 00b2768e409b33351eeb63ec79b149e9bd49fdb5 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 14 May 1996 23:46:07 +0000
Subject: [PATCH] In SCREEN-FORCE-UPDATE, forget the cursor position, so that
 it will be updated during the redisplay.

---
 v7/src/edwin/screen.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/screen.scm b/v7/src/edwin/screen.scm
index e71c6d0ca..1f3d20dec 100644
--- a/v7/src/edwin/screen.scm
+++ b/v7/src/edwin/screen.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: screen.scm,v 1.110 1996/05/14 05:41:08 cph Exp $
+;;;	$Id: screen.scm,v 1.111 1996/05/14 23:46:07 cph Exp $
 ;;;
 ;;;	Copyright (c) 1989-96 Massachusetts Institute of Technology
 ;;;
@@ -545,7 +545,11 @@
 		    (boolean-vector-set! new-hl-enable y true)))))
 	(string-fill! (vector-ref current-contents y) #\space)
 	(boolean-vector-set! current-enable y true)
-	(boolean-vector-set! current-hl-enable y false))))
+	(boolean-vector-set! current-hl-enable y false)))
+    (set-matrix-cursor-x! new-matrix (matrix-cursor-x current-matrix))
+    (set-matrix-cursor-y! new-matrix (matrix-cursor-y current-matrix))
+    (set-matrix-cursor-x! current-matrix #f)
+    (set-matrix-cursor-y! current-matrix #f))
   (set-screen-needs-update?! screen true))
 
 (define (screen-scroll-lines-down screen xl xu yl yu amount)
-- 
2.25.1