mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(ps-do-despool): Bind coding-system-for-write to

Browse source 
raw-text-unix.
This commit is contained in:
Eli Zaretskii 1998-04-15 15:37:58 +00:00
parent b48fa57006
commit 7ffaf65994
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/ps-print.el
View file

@ -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)