Commit 7d93ae3c authored by Richard M. Stallman's avatar Richard M. Stallman

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

parent 2a612632
...@@ -99,6 +99,10 @@ The variable `lpr-page-header-program' specifies the program to use.") ...@@ -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. ;; and it seems to annoying to do for that MIPS system.
(let ((name (concat (buffer-name) " Emacs buffer")) (let ((name (concat (buffer-name) " Emacs buffer"))
(title (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) (width tab-width)
switch-string) switch-string)
(save-excursion (save-excursion
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment