diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-01-15 22:50:35 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-01-15 22:50:35 +0000 |
commit | b0cea22f7cd5221dbd5fb5d2d11a541914e91654 (patch) | |
tree | 987c778f5e24dd4dcfdfca242923c0c6fac8e0fe | |
parent | 5f0648777cf300ba01ebfd06167de84885c1ef70 (diff) | |
download | emacs-b0cea22f7cd5221dbd5fb5d2d11a541914e91654.tar.gz |
(ps-do-despool): On MS-DOS, allow both the usual and
the alternative printing methods.
-rw-r--r-- | lisp/ps-print.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 8968d414199..b1b13ccc2a1 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -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))) |