]> git.eshelyaron.com Git - emacs.git/commitdiff
(ps-do-despool): On MS-DOS, allow both the usual and
authorRichard M. Stallman <rms@gnu.org>
Mon, 15 Jan 1996 22:50:35 +0000 (22:50 +0000)
committerRichard M. Stallman <rms@gnu.org>
Mon, 15 Jan 1996 22:50:35 +0000 (22:50 +0000)
the alternative printing methods.

lisp/ps-print.el

index 8968d41419937efcb1beb3c17a3ae791be63b965..b1b13ccc2a1a420c4492ec5eec851b199f8b43ce 100644 (file)
@@ -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)))