From a9bb53da49909da1ddb57836c974705844275a10 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 29 Dec 1995 04:14:10 +0000 Subject: [PATCH] (ps-do-despool): Alternative output method for MSDOS. --- lisp/ps-print.el | 8 +++++--- 1 file 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))) -- 2.39.2