From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 8 Aug 1989 11:12:29 +0000 (+0000)
Subject: Don't call `subscreen-clear!' if the rectangle has zero area.
X-Git-Tag: 20090517-FFI~11867
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=513027350abb6242abf5a9eb15fe95155019eb2d;p=mit-scheme.git

Don't call `subscreen-clear!' if the rectangle has zero area.
---

diff --git a/v7/src/edwin/utlwin.scm b/v7/src/edwin/utlwin.scm
index 38965b0c4..54643c885 100644
--- a/v7/src/edwin/utlwin.scm
+++ b/v7/src/edwin/utlwin.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/utlwin.scm,v 1.52 1989/08/08 10:06:32 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/utlwin.scm,v 1.53 1989/08/08 11:12:29 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -82,9 +82,11 @@
 					   (+ x-start start) y-start
 					   (car representation)
 					   start end)
-		  (subscreen-clear! screen
-				    (+ x-start end) (+ x-start x-size)
-				    y-start ayu)#|
+		  (if (< end x-size)
+		      (subscreen-clear! screen
+					(+ x-start end) (+ x-start x-size)
+					y-start ayu))
+#|
 		  (if (not (zero? start))
 		      (clip-window-region-1 xl xu start
 			(lambda (xl xu)