From 7cffad514e41168f4b3b58d671b2b691173284e9 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 2 Jul 1996 21:01:15 +0000 Subject: [PATCH] Fix minor bug in handling of cursor during SCREEN-FORCE-UPDATE. --- v7/src/edwin/screen.scm | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/v7/src/edwin/screen.scm b/v7/src/edwin/screen.scm index 6c9d42130..e5b6fef57 100644 --- a/v7/src/edwin/screen.scm +++ b/v7/src/edwin/screen.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: screen.scm,v 1.112 1996/05/15 00:04:34 cph Exp $ +;;; $Id: screen.scm,v 1.113 1996/07/02 21:01:15 cph Exp $ ;;; ;;; Copyright (c) 1989-96 Massachusetts Institute of Technology ;;; @@ -551,10 +551,13 @@ (string-fill! (vector-ref current-contents y) #\space) (boolean-vector-set! current-enable y true) (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)) + (if (or (matrix-cursor-x current-matrix) + (matrix-cursor-y current-matrix)) + (begin + (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