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 | 37bf7b1686e4b0fa2dd8e9bf564ecb71f4dfc207 (patch) | |
| tree | a9540e4d711fb307fb60f0054426bd2816301baa | |
| parent | cc4050b433b89be2df3144b8bb620b519f376f78 (diff) | |
| download | emacs-37bf7b1686e4b0fa2dd8e9bf564ecb71f4dfc207.tar.gz | |
(print-region): Make pipes use binary mode if file is binary.
| -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 |