fixed bug

svn: r8852 original commit: 0d54a9816fe41383a63894bba822d5492d63076c
2008-03-02 22:43:07 +00:00 · 2008-03-02 22:43:07 +00:00 · b858b854d7
commit b858b854d7
parent 87bd0170da
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