[armedbear-cvs] r11401 - branches/open-external-format/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Nov 29 18:42:35 2008
New Revision: 11401

Log:
Fix character doubling issue and the end-of-line style being written.


Modified:
   branches/open-external-format/src/org/armedbear/lisp/FileStream.java

Modified: branches/open-external-format/src/org/armedbear/lisp/FileStream.java
==============================================================================
--- branches/open-external-format/src/org/armedbear/lisp/FileStream.java	(original)
+++ branches/open-external-format/src/org/armedbear/lisp/FileStream.java	Sat Nov 29 18:42:35 2008
@@ -292,8 +292,9 @@
             } else {
                 for (int i = start; i < end; i++) {
                     char c = chars[i];
-                    out.getWriter().write((byte)c);
                     if (c == '\n') {
+                        if (eolStyle == EolStyle.CRLF)
+                            out.getWriter().write((byte)'\r');
                         out.getWriter().write((byte)eolChar);
                         charPos = 0;
                     } else {