mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(ps-do-despool): On MS-DOS, allow both the usual and

Browse Source 
the alternative printing methods.
This commit is contained in:
Richard M. Stallman 1996-01-15 22:50:35 +00:00
parent 868c7abd7c
commit 62901aeed8
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/ps-print.el
View File

@ -1869,11 +1869,14 @@ EndDSCPage\n"))
(message "Printing..."))
(save-excursion
(set-buffer ps-spool-buffer)
(if (eq system-type 'ms-dos)
(write-region (point-min) (point-max) "PRN")
(apply 'call-process-region
(point-min) (point-max) ps-lpr-command nil 0 nil
ps-lpr-switches)))
(if (and (eq system-type 'ms-dos) (stringp dos-ps-printer))
(write-region (point-min) (point-max) dos-ps-printer t 0)
(let ((binary-process-input t)) ; for MS-DOS
(apply 'call-process-region
(point-min) (point-max) ps-lpr-command nil
(if (fboundp 'start-process) 0 nil)
nil
ps-lpr-switches))))
(if ps-razzle-dazzle
(message "Printing...done")))
(kill-buffer ps-spool-buffer)))