From 35e287185fc08d7f4b8db5ac11fa7a5f9c82ec39 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 29 Jan 2002 03:43:21 +0000
Subject: [PATCH] ...

original commit: 542b00f80fe5d337afd0929e4c411e2a0825a3cb
---
 collects/framework/private/scheme.ss | 2 --
 1 file changed, 2 deletions(-)

diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss
index 2404f4c5..d2b148ee 100644
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@@ -883,12 +883,10 @@
                forward-cache))]
           [define remove-sexp
             (lambda (start-pos)
-              (begin-edit-sequence)
               (let ([end-pos (get-forward-sexp start-pos)])
                 (if end-pos 
                     (kill 0 start-pos end-pos)
                     (bell)))
-              (end-edit-sequence)
               #t)]
           [define forward-sexp
             (lambda (start-pos)