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