From b757c7b013478d2e46fc89b2e2c58b922cde983c Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 2 Sep 1993 20:22:07 +0000 Subject: [PATCH] Avoid screen update when the screen has not been resized. --- v7/src/edwin/tterm.scm | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) 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 -- 2.25.1