# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 892653422 0
# Node ID c1f86e273a3813cbbb657c562469e2a490a955d6
# Parent  e1756df464ff154011f6fe337bb38d7981159f22
(print-region-1): Stop using binary-process-{in,out}put,
bind coding-system-for-{read,write} instead.

diff -r e1756df464ff -r c1f86e273a38 lisp/lpr.el
--- a/lisp/lpr.el	Wed Apr 15 15:10:03 1998 +0000
+++ b/lisp/lpr.el	Wed Apr 15 15:17:02 1998 +0000
@@ -120,10 +120,12 @@
   ;; and it seems to annoying to do for that MIPS system.
   (let ((name (concat (buffer-name) " Emacs buffer"))
 	(title (concat (buffer-name) " Emacs buffer"))
-	;; On MS-DOS systems, make pipes use binary mode if the
-	;; original file is binary.
-	(binary-process-input buffer-file-type)
-	(binary-process-output buffer-file-type)
+	;; Make pipes use the same coding system as
+	;; writing the buffer to a file would.
+	(coding-system-for-write
+	 (or coding-system-for-write buffer-file-coding-system))
+	(coding-system-for-read
+	 (or coding-system-for-read buffer-file-coding-system))
 	(width tab-width)
 	switch-string)
     (save-excursion