PR 9712
svn: r11448
This commit is contained in:
parent
8c9e4bcfe0
commit
381bc9351c
|
@ -202,7 +202,7 @@ module browser threading seems wrong.
|
||||||
(define (find-symbol text pos)
|
(define (find-symbol text pos)
|
||||||
(send text split-snip pos)
|
(send text split-snip pos)
|
||||||
(send text split-snip (+ pos 1))
|
(send text split-snip (+ pos 1))
|
||||||
(let ([snip (send text find-snip pos 'after-or-none)])
|
(let ([snip (send text find-snip pos 'after)])
|
||||||
(if (is-a? snip string-snip%)
|
(if (is-a? snip string-snip%)
|
||||||
(let* ([before
|
(let* ([before
|
||||||
(let loop ([i (- pos 1)]
|
(let loop ([i (- pos 1)]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user