From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 2 Sep 1993 20:22:07 +0000 (+0000)
Subject: Avoid screen update when the screen has not been resized.
X-Git-Tag: 20090517-FFI~7911
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b757c7b013478d2e46fc89b2e2c58b922cde983c;p=mit-scheme.git

Avoid screen update when the screen has not been resized.
---

diff --git a/v7/src/edwin/tterm.scm b/v7/src/edwin/tterm.scm
index 96504443f..adb569fcc 100644
--- a/v7/src/edwin/tterm.scm
+++ b/v7/src/edwin/tterm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: tterm.scm,v 1.23 1993/09/01 18:06:16 gjr Exp $
+$Id: tterm.scm,v 1.24 1993/09/02 20:22:07 gjr Exp $
 
 Copyright (c) 1990-1993 Massachusetts Institute of Technology
 
@@ -1090,9 +1090,12 @@ Note that the multiply factors are in tenths of characters.  |#
 	      (desc (terminal-state/description state)))
 	  (let ((x-size (output-port/x-size port))
 		(y-size (output-port/y-size port)))
-	    (without-interrupts
-	     (lambda ()
-	       (set-tn-x-size! desc x-size)
-	       (set-tn-y-size! desc y-size)
-	       (set-screen-size! screen x-size y-size)))
-	    (update-screen! screen #t))))))
\ No newline at end of file
+	    (if (or (not (= x-size (screen-x-size screen)))
+		    (not (= y-size (screen-y-size screen))))
+		(begin
+		  (without-interrupts
+		   (lambda ()
+		     (set-tn-x-size! desc x-size)
+		     (set-tn-y-size! desc y-size)
+		     (set-screen-size! screen x-size y-size)))
+		  (update-screen! screen #t))))))))
\ No newline at end of file