From 0b45d07bc22fc6fc26d8c46be5cfde6b76475f05 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 15 Apr 1998 15:17:02 +0000 Subject: [PATCH] (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(-) 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 -- 2.39.2