From dd1f3364a4b94aa4bc225ddd22c872f40a1f981c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 16 Sep 2013 13:45:58 -0500 Subject: [PATCH] unbreak undo in drracket broken by 21e06eec53c --- pkgs/drracket-pkgs/drracket/drracket/private/syncheck/gui.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/syncheck/gui.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/syncheck/gui.rkt index 06ddaa19c1..39932d70c9 100644 --- a/pkgs/drracket-pkgs/drracket/drracket/private/syncheck/gui.rkt +++ b/pkgs/drracket-pkgs/drracket/drracket/private/syncheck/gui.rkt @@ -305,7 +305,7 @@ If the namespace does not, they are colored the unbound color. (mixin ((class->interface text%)) (cs-clearing<%>) (inherit begin-edit-sequence end-edit-sequence) (define/augment (on-delete start len) - (begin-edit-sequence #f #t) + (begin-edit-sequence #t #f) (inner (void) on-delete start len)) (define/augment (after-delete start len) (inner (void) after-delete start len) @@ -313,7 +313,7 @@ If the namespace does not, they are colored the unbound color. (end-edit-sequence)) (define/augment (on-insert start len) - (begin-edit-sequence #f #t) + (begin-edit-sequence #t #f) (inner (void) on-insert start len)) (define/augment (after-insert start len) (inner (void) after-insert start len)