From 0b45d07bc22fc6fc26d8c46be5cfde6b76475f05 Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 15 Apr 1998 15:17:02 +0000
Subject: (print-region-1): Stop using binary-process-{in,out}put, bind
coding-system-for-{read,write} instead.
---
lisp/lpr.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
(limited to 'lisp')
diff --git a/lisp/lpr.el b/lisp/lpr.el
index 40f9d81b697..dbefaa938ef 100644
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -120,10 +120,12 @@ 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)
+ ;; Make pipes use the same coding system as
+ ;; writing the buffer to a file would.
+ (coding-system-for-write
+ (or coding-system-for-write buffer-file-coding-system))
+ (coding-system-for-read
+ (or coding-system-for-read buffer-file-coding-system))
(width tab-width)
switch-string)
(save-excursion
--
cgit v1.2.3