From c4deab2e6712cc2076c29cd6b037f2c6a080bcbc Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 1 Oct 2011 08:09:55 -0500 Subject: [PATCH] fix crlf mode initialization original commit: b71e562284168419abb5500e2eaceb9d0488f363 --- collects/framework/private/text.rkt | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/collects/framework/private/text.rkt b/collects/framework/private/text.rkt index 8f5750fe..5a1adf88 100644 --- a/collects/framework/private/text.rkt +++ b/collects/framework/private/text.rkt @@ -1818,6 +1818,8 @@ (define/augment (after-load-file success?) (cond [(preferences:get 'framework:always-use-platform-specific-linefeed-convention) + (use-file-text-mode #t)] + [else (define unix-endings? (with-handlers ((exn:fail:filesystem? (λ (x) #t))) (call-with-input-file (get-filename) @@ -1825,12 +1827,16 @@ (regexp-match? unix-line-endings-regexp port))))) (use-file-text-mode (and (eq? (system-type) 'windows) - unix-endings?))] - [else (use-file-text-mode #t)]) + (not unix-endings?)))]) (inner (void) after-load-file success?)) - (super-new))) - + (super-new) + + ;; for empty files we want to use LF mode so + ;; set it this way until a file is loaded in the editor + (when (eq? (system-type) 'windows) + (unless (preferences:get 'framework:always-use-platform-specific-linefeed-convention) + (use-file-text-mode #f))))) (define file<%> (interface (editor:file<%> basic<%>)