From 188186ca25ad59d1e083f66b5cd85e4212e8eedf Mon Sep 17 00:00:00 2001 From: Jacob Matthews Date: Tue, 11 Sep 2007 20:47:55 +0000 Subject: [PATCH] Making autocomplete-mixin's get-word-at public in preparation for fixing PR 8925 svn: r7319 --- collects/framework/private/text.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss index 67ca244e81..0437e1ad8c 100644 --- a/collects/framework/private/text.ss +++ b/collects/framework/private/text.ss @@ -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)))