Making autocomplete-mixin's get-word-at public in preparation for fixing PR 8925

svn: r7319
This commit is contained in:
Jacob Matthews 2007-09-11 20:47:55 +00:00
parent 9096231611
commit 188186ca25

View File

@ -2240,7 +2240,7 @@ designates the character that triggers autocompletion
;; Number -> String
;; The word that ends at the current positon of the editor
(define/private (get-word-at current-pos)
(define/public (get-word-at current-pos)
(let ([start-pos (box current-pos)])
(find-wordbreak start-pos #f 'caret)
(get-text (unbox start-pos) current-pos)))