(print-region): Make pipes use binary mode if file is binary.

lisp/lpr.el

@@ -99,6 +99,10 @@ 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)
 	(width tab-width)
 	switch-string)
     (save-excursion