From 00c9f0b1a127d4bed102cc1fbc39614e82819ce7 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 13 Sep 2007 18:37:48 +0000 Subject: [PATCH] bugfix as noticed by Stephen De Gabrielle svn: r7328 --- collects/framework/private/scheme.ss | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss index c8f4787d0c..0e5493e748 100644 --- 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)