Mercurial > emacs
changeset 21571:add6627452a5
(ps-do-despool): Bind coding-system-for-write to
raw-text-unix.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Wed, 15 Apr 1998 15:37:58 +0000 |
| parents | e21c343b0c6e |
| children | 395ad34c576a |
| files | lisp/ps-print.el |
| diffstat | 1 files changed, 7 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ps-print.el Wed Apr 15 15:31:30 1998 +0000 +++ b/lisp/ps-print.el Wed Apr 15 15:37:58 1998 +0000 @@ -3905,17 +3905,18 @@ (and ps-razzle-dazzle (message "Saving...")) (set-buffer ps-spool-buffer) (setq filename (expand-file-name filename)) - (write-region (point-min) (point-max) filename) + (let ((coding-system-for-write 'raw-text-unix)) + (write-region (point-min) (point-max) filename)) (and ps-razzle-dazzle (message "Wrote %s" filename))) ;; Else, spool to the printer (and ps-razzle-dazzle (message "Printing...")) (save-excursion (set-buffer ps-spool-buffer) - (if (and (eq system-type 'ms-dos) - (stringp (symbol-value 'dos-ps-printer))) - (write-region (point-min) (point-max) - (symbol-value 'dos-ps-printer) t 0) - (let ((binary-process-input t)) ; for MS-DOS + (let ((coding-system-for-write 'raw-text-unix)) + (if (and (eq system-type 'ms-dos) + (stringp (symbol-value 'dos-ps-printer))) + (write-region (point-min) (point-max) + (symbol-value 'dos-ps-printer) t 0) (apply 'call-process-region (point-min) (point-max) ps-lpr-command nil (and (fboundp 'start-process) 0)