# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 820210450 0
# Node ID d7591ab6c2591256731374f8791a2c97e92b58cb
# Parent  bcb436f256e336550be1f038fc1ec558507a40cf
(ps-do-despool): Alternative output method for MSDOS.

diff -r bcb436f256e3 -r d7591ab6c259 lisp/ps-print.el
--- a/lisp/ps-print.el	Fri Dec 29 03:36:35 1995 +0000
+++ b/lisp/ps-print.el	Fri Dec 29 04:14:10 1995 +0000
@@ -1868,9 +1868,11 @@
 	  (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)))