From cbf7ba42d41040c62a06d5ca34e293d6b713a9da Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 14 Apr 2009 16:21:09 +0000
Subject: [PATCH] fix CDLF conversion when loading a text file into an editor

svn: r14512

original commit: 6082e6a9c385409b11d4240cc311fdcf33ec4727
---
 collects/mred/private/wxme/text.ss | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/collects/mred/private/wxme/text.ss b/collects/mred/private/wxme/text.ss
index 702e1e2f..9f14bf29 100644
--- a/collects/mred/private/wxme/text.ss
+++ b/collects/mred/private/wxme/text.ss
@@ -2510,13 +2510,20 @@
                                  (send s-style-list new-named-style "Standard" (send s-style-list basic-style))
                                  (send mf ok?))))))]
               [(or (eq? format 'text) (eq? format 'text-force-cr))
-               (let loop ()
+               (let loop ([saved-cr? #f])
                  (let ([l (read-string 256 f)])
                    (unless (eof-object? l)
-                     (insert l)
-                     (loop))))
+                     (let ([l2 (if (equal? l "")
+                                   l
+                                   (if (equal? #\return (string-ref l (sub1 (string-length l))))
+                                       (substring l 0 (sub1 (string-length l)))
+                                       l))])
+                       (insert (regexp-replace* #rx"\r\n" 
+                                                (if saved-cr? (string-append "\r" l2) l2)
+                                                "\n"))
+                       (loop (not (eq? l l2)))))))
                #f])])
-
+        
         (when fileerr?
           (error who "error loading the file"))