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

fixed the 'find the word behind the insertion point' function for racket-mode completion

Browse Source 
closes PR 11800
This commit is contained in:
Robby Findler 2011-03-30 18:54:03 -05:00
parent f88621aec1
commit 82933e8019
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/framework/private/scheme.rkt
View File

@ -457,17 +457,17 @@
[else
(let ([type (classify-position (max 0 (- current-pos 1)))])
(cond
[(eq? 'symbol type)
(get-text (look-for-non-symbol (max 0 (- current-pos 1)))
[(memq type '(symbol keyword))
(get-text (look-for-non-symbol/non-kwd (max 0 (- current-pos 1)))
current-pos)]
[else no-word]))])))
(define/private (look-for-non-symbol start)
(define/private (look-for-non-symbol/non-kwd start)
(let loop ([i start])
(cond
[(< i 0)
0]
[(eq? (classify-position i) 'symbol)
[(memq (classify-position i) '(symbol keyword))
(loop (- i 1))]
[else
(+ i 1)])))