From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 15 Jan 1996 22:50:35 +0000 (+0000)
Subject: (ps-do-despool): On MS-DOS, allow both the usual and
X-Git-Tag: emacs-19.34~1670
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=62901aeed82a5a1ade8bf8ae2f52eb040b61d97b;p=emacs.git

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

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