From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 28 Sep 1996 03:51:26 +0000 (+0000)
Subject: When scrolling, inform the screen code that the cursor has been moved
X-Git-Tag: 20090517-FFI~5389
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4fc2df5ef38cf4224ac44e4eb8cd2b2cfd2af328;p=mit-scheme.git

When scrolling, inform the screen code that the cursor has been moved
so that it can move it back if necessary.
---

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