fixed bug

svn: r8852
2008-03-02 22:43:07 +00:00 · 2008-03-02 22:43:07 +00:00 · 0d54a9816f
commit 0d54a9816f
parent b3476706ec
1 changed files with 6 additions and 1 deletions
--- a/collects/framework/private/color.ss
+++ b/collects/framework/private/color.ss
@ -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