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

fixed bug

Browse Source 
svn: r8852
This commit is contained in:
Robby Findler 2008-03-02 22:43:07 +00:00
parent b3476706ec
commit 0d54a9816f
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/framework/private/color.ss
View File

@ -687,7 +687,7 @@ added get-regions
(when stopped?
(error 'backward-containing-sexp "called on a color:text<%> whose colorer is stopped."))
(let loop ((cur-pos position))
(let ((p (internal-backward-match cur-pos cutoff)))
(let ((p (internal-backward-match cur-pos cutoff)))
(cond
((eq? 'open p) cur-pos)
((not p) #f)
@ -711,6 +711,11 @@ added get-regions
(when stopped?
(error 'skip-whitespace "called on a color:text<%> whose colorer is stopped."))
(cond
[(and (eq? direction 'forward)
(= position (last-position)))
position]
[(and (eq? direction 'backward) (= position 0))
position]
[(not (in-colored-region? position))
position]
[else