Mercurial > emacs
changeset 21569:c1f86e273a38
(print-region-1): Stop using binary-process-{in,out}put,
bind coding-system-for-{read,write} instead.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Wed, 15 Apr 1998 15:17:02 +0000 |
| parents | e1756df464ff |
| children | e21c343b0c6e |
| files | lisp/lpr.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/lpr.el Wed Apr 15 15:10:03 1998 +0000 +++ b/lisp/lpr.el Wed Apr 15 15:17:02 1998 +0000 @@ -120,10 +120,12 @@ ;; 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