Mercurial > emacs
changeset 21568:e1756df464ff
(dos-print-region-function): Except for binary files,
force conversion to DOS EOLs, but leave text conversions alone.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Wed, 15 Apr 1998 15:10:03 +0000 |
| parents | 33b1f010d589 |
| children | c1f86e273a38 |
| files | lisp/dos-fns.el |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dos-fns.el Wed Apr 15 15:02:22 1998 +0000 +++ b/lisp/dos-fns.el Wed Apr 15 15:10:03 1998 +0000 @@ -148,8 +148,14 @@ START and END." ;; DOS printers need the lines to end with CR-LF pairs, so make - ;; sure it always happens that way. - (let ((coding-system-for-write 'undecided-dos)) + ;; sure it always happens that way, unless the buffer is binary. + (let* ((coding coding-system-for-write) + (coding-base + (if (null coding) 'undecided (coding-system-base coding))) + (eol-type (coding-system-eol-type coding-base))) + (or (eq coding-system-for-write 'no-conversion) + (setq coding-system-for-write + (aref eol-type 1))) ; force conversion to DOS EOLs (write-region start end dos-printer t 0) ;; Make each print-out start on a new page, but don't waste ;; paper if there was a form-feed at the end of this file.