From 7ffaf65994ab9c5bee7a5992708d5c068dd863b1 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 15 Apr 1998 15:37:58 +0000 Subject: [PATCH] (ps-do-despool): Bind coding-system-for-write to raw-text-unix. --- lisp/ps-print.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/ps-print.el b/lisp/ps-print.el index e74d40245d5..576746ce085 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -3905,17 +3905,18 @@ If FACE is not a valid face name, it is used default face." (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) -- 2.39.2