# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 821745753 0
# Node ID cca44468f1e409e345e4abf5d36dd93092f059f6
# Parent  fb0b99d7038e93b34013fc041973ca7e3460b78b
(print-region): Make pipes use binary mode if file is binary.

diff -r fb0b99d7038e -r cca44468f1e4 lisp/lpr.el
--- a/lisp/lpr.el	Mon Jan 15 21:26:30 1996 +0000
+++ b/lisp/lpr.el	Mon Jan 15 22:42:33 1996 +0000
@@ -99,6 +99,10 @@
   ;; 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)
 	(width tab-width)
 	switch-string)
     (save-excursion