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

svn: r7319

original commit: 188186ca25ad59d1e083f66b5cd85e4212e8eedf
This commit is contained in:
Jacob Matthews 2007-09-11 20:47:55 +00:00
parent d0f1e62c6a
commit 0e8614e339

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)))