From 6acee2d830e7291ae46213dba19b89373e849928 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 10 Nov 2004 18:08:23 +0000
Subject: [PATCH] .

original commit: fa9a6acd2ed1afe447d4480d337ffb0a3b161db4
---
 collects/mred/mred.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index bb63c00c..4a5d9b53 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -624,9 +624,9 @@
        (case-lambda
 	[() (not perform-updates?)]
 	[(f) (set! perform-updates? (not f))
-	     (when pending-redraws?
+	     (when (and perform-updates? pending-redraws?)
 	       (force-redraw))
-	     (when (positive? (hash-table-count show-ht))
+	     (when (and perform-updates? (positive? (hash-table-count show-ht)))
 	       (let ([t show-ht])
 		 (set! show-ht (make-hash-table))
 		 (hash-table-for-each