From 6d32dabc63c8395aa4f2e304bb691cb61a9a0aa4 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 13 Sep 2007 20:04:46 +0000 Subject: [PATCH] added some more characters svn: r7329 --- collects/framework/private/scheme.ss | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss index 0e5493e748..cba5d7b1b1 100644 --- a/collects/framework/private/scheme.ss +++ b/collects/framework/private/scheme.ss @@ -370,8 +370,14 @@ (define init-wordbreak-map (λ (map) - (send map set-map #\- '(line selection)) - (send map set-map #\: '(line selection)))) + (send map set-map #\< '(line selection)) ; interfaces e.g.the canvas<%> interface + (send map set-map #\> '(line selection)) ; interfaces, casts e.g. string->path + (send map set-map #\% '(line selection)) ; intefraces, classes + (send map set-map #\? '(line selection)) ; predicates + (send map set-map #\' '(line selection)) ; literal symbols + (send map set-map #\! '(line selection)) ; assignments e.g. set + (send map set-map #\- '(line selection)) ; hyphens + (send map set-map #\: '(line selection)))); valid identifiers with colons (define wordbreak-map (make-object editor-wordbreak-map%)) (define (get-wordbreak-map) wordbreak-map)