From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 15 Jan 1996 22:42:33 +0000 (+0000)
Subject: (print-region): Make pipes use binary mode if file is binary.
X-Git-Tag: emacs-19.34~1672
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d93ae3cc30a5d31ed1e30e912012f16076e7ad9;p=emacs.git

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

diff --git a/lisp/lpr.el b/lisp/lpr.el
index 122c9d6e295..34956193642 100644
--- a/lisp/lpr.el
+++ b/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