From ef3cf1eab8a799fb59133e85a791de49d192a510 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 26 Apr 2009 15:24:50 +0000 Subject: [PATCH] fix some editor lock tracking svn: r14614 original commit: 4141389b847687df4dc0d9d9141575f55c368338 --- collects/mred/private/wxme/text.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mred/private/wxme/text.ss b/collects/mred/private/wxme/text.ss index eb78bee8..34ed1131 100644 --- a/collects/mred/private/wxme/text.ss +++ b/collects/mred/private/wxme/text.ss @@ -4187,16 +4187,16 @@ (let ([at-start? (eq? (mline-snip line) snip1)] [at-end? (eq? (mline-last-snip line) snip2)] [wl? write-locked?] - [fl flow-locked?]) + [fl? flow-locked?]) (set! read-locked? #t) (set! write-locked? #t) (set! flow-locked? #t) (set-snip-flags! snip2 (add-flag (snip->flags snip2) CAN-SPLIT)) (let ([naya (send snip2 merge-with snip1)]) - (set! read-locked? #t) + (set! read-locked? #f) (set! write-locked? wl?) - (set! flow-locked? wl?) + (set! flow-locked? fl?) (if naya (begin