From 37bf7b1686e4b0fa2dd8e9bf564ecb71f4dfc207 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 15 Jan 1996 22:42:33 +0000 Subject: (print-region): Make pipes use binary mode if file is binary. --- lisp/lpr.el | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'lisp/lpr.el') 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 -- cgit v1.2.1