(print-region-1): Stop using binary-process-{in,out}put,

bind coding-system-for-{read,write} instead.

1 files changed, 6 insertions, 4 deletions

diff --git a/lisp/lpr.el b/lisp/lpr.el
index 40f9d81b697..dbefaa938ef 100644
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -120,10 +120,12 @@ The variable `lpr-page-header-program' specifies the program to use."
   ;; 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