From 8dd71ff3898ea39165e4a95e8bd831591f3e112d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 3 Jul 2003 14:17:40 +0000
Subject: [PATCH] .

original commit: 0d275b994176824b46e8aa0884c53004daa9e814
---
 collects/mred/mred.ss | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 75f251ea..b90e7d7d 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -7477,7 +7477,16 @@
 				  (make-semaphore-peek lock-semaphore)))))
 		      #f ; no peek
 		      close)])
-	  (update-str-to-snip empty-string)
+	  (if (is-a? snip wx:string-snip%)
+	      ;; Specilal handling for initial snip string in case
+	      ;;  it starts too early:
+	      (let* ([snip-start (gsp snip)]
+		     [skip (- start snip-start)]
+		     [c (min (- (send-generic snip get-count-generic) skip)
+			     (- end snip-start))])
+		(set! next? #t)
+		(display (send-generic snip get-text-generic skip c) pipe-w))
+	      (update-str-to-snip empty-string))
 	  (port-count-lines! port)
 	  port)))]
    [(text start) (open-input-text-editor text start 'end)]