From e0597481ed2a35995656ae1c9a280d9f3452a004 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sun, 10 Nov 1996 21:54:51 +0000
Subject: [PATCH] fixed wrapping bug

original commit: 5a6d43f07b5f763173e0edb2f519c1d19fb195a2
---
 collects/mred/edit.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss
index f9464532..864fb878 100644
--- a/collects/mred/edit.ss
+++ b/collects/mred/edit.ss
@@ -76,7 +76,7 @@
 	     (lambda (v)
 	       (mred:debug:printf 'rewrap "set-auto-set-wrap: ~a" v)
 	       (set! auto-set-wrap? v)
-	       (rewrap))]
+	       (for-each (lambda (c) (send c resize-edit)) canvases))]
 	    
 	    [rewrap
 	     (let ([do-wrap