bugfix as noticed by Stephen De Gabrielle

svn: r7328 original commit: 00c9f0b1a127d4bed102cc1fbc39614e82819ce7
2007-09-13 18:37:48 +00:00 · 2007-09-13 18:37:48 +00:00 · 69e3f09ce4
commit 69e3f09ce4
parent 0e8614e339
1 changed files with 3 additions and 4 deletions
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@ -370,10 +370,9 @@
  
  (define init-wordbreak-map
    (λ (map)
-      (let ([v (send map get-map #\-)])
-        (send map set-map 
-              #\-
-              '(line)))))
+      (send map set-map  #\- '(line selection))
+      (send map set-map  #\: '(line selection))))
+
  (define wordbreak-map (make-object editor-wordbreak-map%))
  (define (get-wordbreak-map) wordbreak-map)
  (init-wordbreak-map wordbreak-map)