From 7a001e3dd21c2992dbf3fa6088299c3b39aedb8e Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 5 Aug 2011 15:01:33 -0700 Subject: [PATCH] avoid using paren balancing stuff when the colorer is frozen (when user pushes f1) closes PR 12088 --- collects/drracket/private/unit.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/drracket/private/unit.rkt b/collects/drracket/private/unit.rkt index 2248ff574e..c04d3fdcd7 100644 --- a/collects/drracket/private/unit.rkt +++ b/collects/drracket/private/unit.rkt @@ -200,7 +200,9 @@ module browser threading seems wrong. ;; finds the symbol around the position `pos' (approx) (define (find-symbol text pos) (cond - [(is-a? text scheme:text<%>) + [(and (is-a? text scheme:text<%>) + (not (send text is-stopped?)) + (not (send text is-frozen?))) (let* ([before (send text get-backward-sexp pos)] [before+ (and before (send text get-forward-sexp before))] [after (send text get-forward-sexp pos)]