suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bugfix as noticed by Stephen De Gabrielle

Browse Source 
svn: r7328

original commit: 00c9f0b1a127d4bed102cc1fbc39614e82819ce7
This commit is contained in:
Robby Findler 2007-09-13 18:37:48 +00:00
parent 0e8614e339
commit 69e3f09ce4
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/framework/private/scheme.ss
View File

@ -370,10 +370,9 @@
(define init-wordbreak-map (define init-wordbreak-map
(λ (map) (λ (map)
(let ([v (send map get-map #\-)]) (send map set-map #\- '(line selection))
(send map set-map (send map set-map #\: '(line selection))))
#\-
'(line)))))
(define wordbreak-map (make-object editor-wordbreak-map%)) (define wordbreak-map (make-object editor-wordbreak-map%))
(define (get-wordbreak-map) wordbreak-map) (define (get-wordbreak-map) wordbreak-map)
(init-wordbreak-map wordbreak-map) (init-wordbreak-map wordbreak-map)