the paren matcher now works for previous interactinos with the REPL and hitting return up above copies the text down to the next prompt

svn: r8840

original commit: 362f16b411431454f02556bd6859143b5bbc63b5

collects/framework/private/scheme.ss

@@ -431,7 +431,7 @@
       
       (inherit get-styles-fixed)
       (inherit has-focus? find-snip split-snip
-               position-location get-dc get-region)
+               position-location get-dc)
       
       (define/override (get-word-at current-pos)
         (let ([no-word ""])
@@ -447,18 +447,14 @@
                  [else no-word]))])))
       
       (define/private (look-for-non-symbol start)
-        (let-values ([(region-start region-end) (get-region)])
-          (let loop ([i start])
-            (cond
-              [(and (number? region-start)
-                    (< i region-start))
-               region-start]
-              [(< i 0) 
-               0]
-              [(eq? (classify-position i) 'symbol)
-               (loop (- i 1))]
-              [else
-               (+ i 1)]))))
+        (let loop ([i start])
+          (cond
+            [(< i 0) 
+             0]
+            [(eq? (classify-position i) 'symbol)
+             (loop (- i 1))]
+            [else
+             (+ i 1)])))
 
       (public tabify-on-return? tabify
               tabify-all insert-return calc-last-para