diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-01-15 22:42:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-01-15 22:42:33 +0000 |
| commit | 7d93ae3cc30a5d31ed1e30e912012f16076e7ad9 (patch) | |
| tree | 8f62093d6e45b1b1e0e1cbb3bd6bedf54b5d091e /lisp/lpr.el | |
| parent | 2a612632fd8e1d1527f87417ffb235dec6717063 (diff) | |
| download | emacs-7d93ae3cc30a5d31ed1e30e912012f16076e7ad9.tar.gz emacs-7d93ae3cc30a5d31ed1e30e912012f16076e7ad9.tar.bz2 emacs-7d93ae3cc30a5d31ed1e30e912012f16076e7ad9.zip | |
(print-region): Make pipes use binary mode if file is binary.
Diffstat (limited to 'lisp/lpr.el')
| -rw-r--r-- | lisp/lpr.el | 4 |
1 files changed, 4 insertions, 0 deletions
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 |