# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 892654678 0
# Node ID add6627452a524c01d1068eb46607c7f78ec0d7a
# Parent  e21c343b0c6e057bbaca6b8b21d0827d5e9b59c8
(ps-do-despool): Bind coding-system-for-write to
raw-text-unix.

diff -r e21c343b0c6e -r add6627452a5 lisp/ps-print.el
--- a/lisp/ps-print.el	Wed Apr 15 15:31:30 1998 +0000
+++ b/lisp/ps-print.el	Wed Apr 15 15:37:58 1998 +0000
@@ -3905,17 +3905,18 @@
 	  (and ps-razzle-dazzle (message "Saving..."))
 	  (set-buffer ps-spool-buffer)
 	  (setq filename (expand-file-name filename))
-	  (write-region (point-min) (point-max) filename)
+	  (let ((coding-system-for-write 'raw-text-unix))
+	    (write-region (point-min) (point-max) filename))
 	  (and ps-razzle-dazzle (message "Wrote %s" filename)))
       ;; Else, spool to the printer
       (and ps-razzle-dazzle (message "Printing..."))
       (save-excursion
 	(set-buffer ps-spool-buffer)
-	(if (and (eq system-type 'ms-dos)
-		 (stringp (symbol-value 'dos-ps-printer)))
-	    (write-region (point-min) (point-max)
-			  (symbol-value 'dos-ps-printer) t 0)
-	  (let ((binary-process-input t)) ; for MS-DOS
+	(let ((coding-system-for-write 'raw-text-unix))
+	  (if (and (eq system-type 'ms-dos)
+		   (stringp (symbol-value 'dos-ps-printer)))
+	      (write-region (point-min) (point-max)
+			    (symbol-value 'dos-ps-printer) t 0)
 	    (apply 'call-process-region
 		   (point-min) (point-max) ps-lpr-command nil
 		   (and (fboundp 'start-process) 0)