[Emacs-diffs] Changes to emacs/lisp/gnus/compface.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     06/08/16 14:04:41

Index: compface.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/compface.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- compface.el 5 Feb 2006 13:56:44 -0000       1.5
+++ compface.el 16 Aug 2006 14:04:41 -0000      1.6
@@ -34,6 +34,10 @@
 or `faces-xface' and `netpbm' or `libgr-progs', for instance."
   (with-temp-buffer
     (insert face)
+    (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 'binary))
     (and (eq 0 (apply 'call-process-region (point-min) (point-max)
                      "uncompface"
                      'delete '(t nil) nil))
@@ -51,7 +55,7 @@
                                      "icontopbm | pnmnoraw"
                                      (current-buffer) t)
             t))
-        (buffer-string))))
+          (buffer-string)))))
 
 (provide 'compface)