From 03a61d7bc5d807f89da4c225cd93c7019bd14d34 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 15 Mar 1991 22:48:42 +0000 Subject: [PATCH] Changed smart and semi-dumb redisplay to always call smart-clear-to-eow when there is blank space at the end of the window. This is easier than keeping track of how much stuff has actually been written in the presence of aborted output. --- hemlock/tty-display.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/hemlock/tty-display.lisp b/hemlock/tty-display.lisp index ef68a1116..7f145d511 100644 --- a/hemlock/tty-display.lisp +++ b/hemlock/tty-display.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/tty-display.lisp,v 1.1.1.7 1991/03/15 22:17:36 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/tty-display.lisp,v 1.1.1.8 1991/03/15 22:48:42 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -160,7 +160,7 @@ ;; ;; Clear any extra lines at the end of the window. (let ((pos (dis-line-position (car (window-last-line window))))) - (when (< pos (window-old-lines window)) + (when (< pos (1- (window-height window))) (tty-smart-clear-to-eow hunk (1+ pos))) (setf (window-old-lines window) pos)) ;; @@ -428,7 +428,7 @@ ;; ;; Clear any extra lines at the end of the window. (let ((pos (dis-line-position (car (window-last-line window))))) - (when (< pos (window-old-lines window)) + (when (< pos (1- (window-height window))) (tty-smart-clear-to-eow hunk (1+ pos))) (setf (window-old-lines window) pos)) ;; -- GitLab