From 4fc2df5ef38cf4224ac44e4eb8cd2b2cfd2af328 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 28 Sep 1996 03:51:26 +0000
Subject: [PATCH] When scrolling, inform the screen code that the cursor has
 been moved so that it can move it back if necessary.

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

diff --git a/v7/src/edwin/os2term.scm b/v7/src/edwin/os2term.scm
index 7cd0e5ae4..2836738c4 100644
--- a/v7/src/edwin/os2term.scm
+++ b/v7/src/edwin/os2term.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: os2term.scm,v 1.18 1996/09/26 23:20:08 cph Exp $
+;;;	$Id: os2term.scm,v 1.19 1996/09/28 03:51:26 cph Exp $
 ;;;
 ;;;	Copyright (c) 1994-96 Massachusetts Institute of Technology
 ;;;
@@ -336,7 +336,7 @@
 			(cyl->yh screen yl)
 			0
 			(fix:- 0 (fix:* amount (screen-char-height screen))))
-	 'UNCHANGED)))
+	 'CLOBBERED-CURSOR)))
 
 (define (os2-screen/scroll-lines-up! screen xl xu yl yu amount)
   (and use-scrolling?
@@ -369,7 +369,7 @@
 			(cyl->yh screen (fix:+ yl amount))
 			0
 			(fix:* amount (screen-char-height screen)))
-	 'UNCHANGED)))
+	 'CLOBBERED-CURSOR)))
 
 (define-integrable (screen-face screen highlight)
   (if highlight
-- 
2.25.1