From 528ac68d113095ae24a499ec93dd3b2fd416ac80 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 26 Nov 2012 10:56:04 -0600 Subject: [PATCH] fix one way that rectangles could have the left side be to the right of the right side original commit: f8793c0cc2be9a4592ffd12c620920eadb1dee49 --- collects/framework/private/text.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/framework/private/text.rkt b/collects/framework/private/text.rkt index 2b815365..1080ee7c 100644 --- a/collects/framework/private/text.rkt +++ b/collects/framework/private/text.rkt @@ -213,7 +213,7 @@ (define-values (start-x top-start-y bottom-start-y) (begin (position-locations start b1 b2 #f b3 start-eol? #t) - (values (if caret-space? + (values (if (and caret-space? (not (= start end))) (+ 1 (unbox b1)) (unbox b1)) (unbox b2)