From 2f98d1afe1f5f930d649086f18da344af84fc936 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 28 Aug 2005 22:42:21 +0000
Subject: [PATCH] fix saving non-text file in Windows

svn: r694

original commit: ddd2f37dd9c077d2d1f0bac3a59dee2291571f4d
---
 collects/mred/private/editor.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mred/private/editor.ss b/collects/mred/private/editor.ss
index 433a24a0..5d7e7384 100644
--- a/collects/mred/private/editor.ss
+++ b/collects/mred/private/editor.ss
@@ -215,7 +215,7 @@
 			 [actual-format (if (memq f-format '(copy same))
 					    (-get-file-format)
 					    f-format)]
-			 [text? (not (memq actual-format '(text text-force-cr)))])
+			 [text? (memq actual-format '(text text-force-cr))])
 		    (and 
 		     file
 		     (can-save-file? file f-format)