...

original commit: 542b00f80fe5d337afd0929e4c411e2a0825a3cb
2002-01-29 03:43:21 +00:00 · 2002-01-29 03:43:21 +00:00 · 35e287185f
commit 35e287185f
parent fbd743993c
1 changed files with 0 additions and 2 deletions
--- 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)