(uncompface): Use binary rather than raw-text-unix.

diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index a30e77b..6646fc2 100644 (file)
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,7 @@
+2006-08-09  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * compface.el (uncompface): Use binary rather than raw-text-unix.
+
 2006-08-09  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * compface.el (uncompface): Make sure the eol conversion doesn't take

diff --git a/contrib/compface.el b/contrib/compface.el
index 83d6f9a..8d97a01 100644 (file)
--- a/contrib/compface.el
+++ b/contrib/compface.el
@@ -84,7 +84,7 @@ or `libgr-progs', for instance."
           (let ((coding-system-for-read 'raw-text)
                 ;; At least "icontopbm" doesn't work with Windows because
                 ;; the line-break code is converted into CRLF by default.
-                (coding-system-for-write 'raw-text-unix))
+                (coding-system-for-write 'binary))
             (and (eq 0 (apply 'call-process-region (point-min) (point-max)
                               "uncompface"
                               'delete '(t nil) nil))

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8199793..3bb1cd8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-08-09  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * compface.el (uncompface): Use binary rather than raw-text-unix.
+
 2006-08-09  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * compface.el (uncompface): Make sure the eol conversion doesn't take

diff --git a/lisp/compface.el b/lisp/compface.el
index 7d335a3..33e0504 100644 (file)
--- a/lisp/compface.el
+++ b/lisp/compface.el
@@ -37,7 +37,7 @@ or `faces-xface' and `netpbm' or `libgr-progs', for instance."
     (let ((coding-system-for-read 'raw-text)
          ;; At least "icontopbm" doesn't work with Windows because
          ;; the line-break code is converted into CRLF by default.
-         (coding-system-for-write 'raw-text-unix))
+         (coding-system-for-write 'binary))
       (and (eq 0 (apply 'call-process-region (point-min) (point-max)
                        "uncompface"
                        'delete '(t nil) nil))