suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix saving non-text file in Windows

Browse Source 
svn: r694
This commit is contained in:
Matthew Flatt 2005-08-28 22:42:21 +00:00
parent 2be17ef3c7
commit ddd2f37dd9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/editor.ss
View File

@ -215,7 +215,7 @@
[actual-format (if (memq f-format '(copy same)) [actual-format (if (memq f-format '(copy same))
(-get-file-format) (-get-file-format)
f-format)] f-format)]
[text? (not (memq actual-format '(text text-force-cr)))]) [text? (memq actual-format '(text text-force-cr))])
(and (and
file file
(can-save-file? file f-format) (can-save-file? file f-format)