Mercurial > emacs

changeset 14188:cca44468f1e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(print-region): Make pipes use binary mode if file is binary.
author Richard M. Stallman <rms@gnu.org>
date Mon, 15 Jan 1996 22:42:33 +0000
parents fb0b99d7038e
children 557b3d11a381
files lisp/lpr.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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