From 0d54a9816fe41383a63894bba822d5492d63076c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 2 Mar 2008 22:43:07 +0000 Subject: [PATCH] fixed bug svn: r8852 --- collects/framework/private/color.ss | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss index a8ec129d3e..b8a75f7387 100644 --- a/collects/framework/private/color.ss +++ b/collects/framework/private/color.ss @@ -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