suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

avoid using paren balancing stuff when the colorer is frozen (when user pushes f1)

Browse Source 
closes PR 12088
This commit is contained in:
Robby Findler 2011-08-05 15:01:33 -07:00
parent 6e6d16b6c9
commit 7a001e3dd2
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drracket/private/unit.rkt
View File

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