.

original commit: fa9a6acd2ed1afe447d4480d337ffb0a3b161db4
2004-11-10 18:08:23 +00:00 · 2004-11-10 18:08:23 +00:00 · 6acee2d830
commit 6acee2d830
parent e5c7295146
1 changed files with 2 additions and 2 deletions
--- 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