From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 31 Mar 1992 07:43:34 +0000 (+0000)
Subject: Always update the cursor position after a successful screen update,
X-Git-Tag: 20090517-FFI~9538
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=53b086d292b14c75b1f5484688d7f89abdd73723;p=mit-scheme.git

Always update the cursor position after a successful screen update,
because the termcap interface doesn't know where it should be and can
leave it in the wrong place.
---

diff --git a/v7/src/edwin/screen.scm b/v7/src/edwin/screen.scm
index 13f4b3c03..8b9d70e16 100644
--- a/v7/src/edwin/screen.scm
+++ b/v7/src/edwin/screen.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/screen.scm,v 1.99 1992/03/13 23:58:38 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/screen.scm,v 1.100 1992/03/31 07:43:34 cph Exp $
 ;;;
 ;;;	Copyright (c) 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -639,12 +639,9 @@
 (define-integrable (screen-update-cursor screen)
   (let ((x (matrix-cursor-x (screen-new-matrix screen)))
 	(y (matrix-cursor-y (screen-new-matrix screen))))
-    (if (not (and (fix:= x (matrix-cursor-x (screen-current-matrix screen)))
-		  (fix:= y (matrix-cursor-y (screen-current-matrix screen)))))
-	(begin
-	  (terminal-move-cursor screen x y)
-	  (set-matrix-cursor-x! (screen-current-matrix screen) x)
-	  (set-matrix-cursor-y! (screen-current-matrix screen) y)))))
+    (terminal-move-cursor screen x y)
+    (set-matrix-cursor-x! (screen-current-matrix screen) x)
+    (set-matrix-cursor-y! (screen-current-matrix screen) y)))
 
 (define (screen-update screen force?)
   ;; Update the actual terminal screen based on the data in `new-matrix'.