.

original commit: 667d334d1ebb5bc7a8c41fe68ba0e167ab141ac1

collects/mred/mred.ss

@@ -7837,9 +7837,7 @@
 	  (if (or expect-to-read-all?
 		  ((- end start) . < . 4096))
 	      ;; It's all text, and it's short enough: just read it into a string
-	      (let ([port (open-input-string (send text get-text start end) port-name)])
-		(port-count-lines! port)
-		port)
+	      (open-input-string (send text get-text start end) port-name)
 	      ;; It's all text, so the reading process is simple:
 	      (let ([start start])
 		(let-values ([(pipe-r pipe-w) (make-pipe)])
@@ -7940,7 +7938,6 @@
 		      (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)))))))
 
 (define (text-editor-load-handler filename expected-module)

collects/mred/private/kernel.ss

@@ -414,6 +414,7 @@
   (define-class bitmap-dc% dc% ()
     get-bitmap
     set-bitmap
+    draw-scaled-section
     set-argb-pixels
     get-argb-pixels
     set-pixel