From 53b086d292b14c75b1f5484688d7f89abdd73723 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 31 Mar 1992 07:43:34 +0000 Subject: [PATCH] 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. --- v7/src/edwin/screen.scm | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) 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'. -- 2.25.1