From 82933e80193196fd918f5a3d80bc59e89ce7b471 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 30 Mar 2011 18:54:03 -0500 Subject: [PATCH] fixed the 'find the word behind the insertion point' function for racket-mode completion closes PR 11800 --- collects/framework/private/scheme.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/framework/private/scheme.rkt b/collects/framework/private/scheme.rkt index 1c43aeaecc..199ad465d9 100644 --- a/collects/framework/private/scheme.rkt +++ b/collects/framework/private/scheme.rkt @@ -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)])))