diff options
| -rw-r--r-- | lisp/ps-print.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index e3cba874a5b..90cfcab2fc2 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -1868,9 +1868,11 @@ EndDSCPage\n")) (message "Printing...")) (save-excursion (set-buffer ps-spool-buffer) - (apply 'call-process-region - (point-min) (point-max) ps-lpr-command nil 0 nil - ps-lpr-switches)) + (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 ps-razzle-dazzle (message "Printing...done"))) (kill-buffer ps-spool-buffer))) |