diff options
| author | Eli Zaretskii <[email protected]> | 1998-04-15 15:17:02 +0000 |
|---|---|---|
| committer | Eli Zaretskii <[email protected]> | 1998-04-15 15:17:02 +0000 |
| commit | 0b45d07bc22fc6fc26d8c46be5cfde6b76475f05 (patch) | |
| tree | 5b65bead2cea310ab05e221b673564eb2a59c487 /lisp/lpr.el | |
| parent | 08160b08aca60768b21bffa9c943f798e2d8b4c3 (diff) | |
(print-region-1): Stop using binary-process-{in,out}put,
bind coding-system-for-{read,write} instead.
Diffstat (limited to 'lisp/lpr.el')
| -rw-r--r-- | lisp/lpr.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/lpr.el b/lisp/lpr.el index 40f9d81b69..dbefaa938e 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 |