.

original commit: 5c0fc3a6d713f41815a1a8397476e0c9422ef0ee

collects/mred/mred.ss

@@ -7402,24 +7402,26 @@
 				(format "end index outside the range [~a,~a]: " start last)
 				end))))
     ;; Create the port:
+    (let-values ([(pipe-r pipe-w) (make-pipe)])
       (let* ([end (if (eq? end 'end) (send text last-position) end)]
 	     [snip (send text find-snip start 'after-or-none)]
-	   [str #f]
+	     [next? #f]
 	     [pos 0]
 	     [lock-semaphore (make-semaphore 1)]
 	     [update-str-to-snip
 	      (lambda ()
-	      (if (not snip)
+		(if snip
-		  (set! str #f)
 		    (let ([snip-start (send text get-snip-position snip)])
 		      (cond
 		       [(snip-start . >= . end)
-		      (set! str #f)]
+			(set! snip #f)
+			(set! next? #f)]
 		       [(is-a? snip wx:string-snip%)
-		      (set! str (send snip get-text 0 (min (send snip get-count)
+			(display (send snip get-text 0 (send snip get-count)) pipe-w)
-							   (- end snip-start))))]
+			(set! next? #t)]
 		       [else
-		      (set! str 'snip)]))))]
+			(set! next? #f)]))
+		    (set! next? #f)))]
 	     [next-snip
 	      (lambda ()
 		(set! snip (send snip next))
@@ -7427,19 +7429,10 @@
 		(update-str-to-snip))]
 	     [read-chars (lambda (to-str)
 			   (cond
-			  [(not str) eof]
+			    [next?
-			  [(string? str)
+			     (next-snip)
-			   (let* ([sl (string-length str)]
+			     0]
-				  [n (min (- sl pos) (string-length to-str))])
+			    [snip
-			     (let loop ([i 0])
-			       (unless (= i n)
-				 (string-set! to-str i (string-ref str (+ i pos)))
-				 (loop (add1 i))))
-			     (set! pos (+ pos n))
-			     (when (sl . <= . pos)
-			       (next-snip))
-			     n)]
-			  [(eq? str 'snip)
 			     (let ([the-snip snip])
 			       (lambda (file line col ppos)
 				 (if (is-a? the-snip readable-snip<%>)
@@ -7456,24 +7449,25 @@
 					 (values val size)))
 				     (begin
 				       (next-snip)
-				     (values (send the-snip copy) 1)))))]))]
+				       (values (send the-snip copy) 1)))))]
+			    [else eof]))]
 	     [close (lambda () (void))]
-	   ;; We create a slow port for now; in the future, try
-	   ;; grabbing more characters:
 	     [port (make-custom-input-port 
 		    (lambda (s)
+		      (if (char-ready? pipe-r)
+			  (read-string-avail!* s pipe-r)
 			  (parameterize ([break-enabled #f])
 			    (if (semaphore-try-wait? lock-semaphore)
 				(dynamic-wind
 				    void
 				    (lambda () (read-chars s))
 				    (lambda () (semaphore-post lock-semaphore)))
-			  (make-semaphore-peek lock-semaphore))))
+				(make-semaphore-peek lock-semaphore)))))
 		    #f ; no peek
 		    close)])
 	(update-str-to-snip)
 	(port-count-lines! port)
-      port)]
+	port))]
    [(text start) (open-input-text-editor text start 'end)]
    [(text) (open-input-text-editor text 0 'end)]))
 

collects/mred/private/kernel.ss

@@ -203,6 +203,7 @@
     num-scroll-lines
     scroll-line-location
     get-snip-location
+    locations-computed?
     in-edit-sequence?
     refresh-delayed?
     end-edit-sequence
@@ -1144,6 +1145,7 @@
     on-event
     size-cache-invalid
     copy
+    get-text!
     get-text
     merge-with
     split
@@ -1181,6 +1183,7 @@
     on-event
     size-cache-invalid
     copy
+    get-text!
     get-text
     merge-with
     split
@@ -1205,6 +1208,7 @@
     on-event
     size-cache-invalid
     copy
+    get-text!
     get-text
     merge-with
     split
@@ -1234,6 +1238,7 @@
     on-event
     size-cache-invalid
     copy
+    get-text!
     get-text
     merge-with
     split
@@ -1276,6 +1281,7 @@
     on-event
     size-cache-invalid
     copy
+    get-text!
     get-text
     merge-with
     split