From: Geoff Voelker <voelker@cs.washington.edu>
Date: Mon, 7 Dec 1998 19:27:26 +0000 (+0000)
Subject: (ps-do-despool) [ms-dos, windows-nt]: Ditto for
X-Git-Tag: emacs-20.4~1120
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a953784890260e2504b7dcb9bebf07a2469c8615;p=emacs.git

(ps-do-despool) [ms-dos, windows-nt]: Ditto for
ps-printer-name.
---

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 7a6a2287de4..25f08f5fbe8 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -5306,12 +5306,26 @@ If FACE is not a valid face name, it is used default face."
 	(let* ((coding-system-for-write 'raw-text-unix)
 	       (ps-printer-name (or ps-printer-name printer-name))
 	       (ps-lpr-switches
-		(append (and (stringp ps-printer-name)
-			     (list (concat "-P" ps-printer-name)))
-			ps-lpr-switches)))
+		(append
+		 (and (stringp ps-printer-name)
+		      (list (concat "-P" ps-printer-name)))
+		 ps-lpr-switches)))
 	  (if (and (memq system-type '(ms-dos windows-nt))
-		   (stringp ps-printer-name))
-	      (write-region (point-min) (point-max) ps-printer-name t 0)
+		   (or (and (boundp 'dos-ps-printer)
+			    (stringp (symbol-value 'dos-ps-printer)))
+		       (stringp ps-printer-name)))
+	      (let ((printer (or (and (boundp 'dos-ps-printer)
+				      (stringp (symbol-value 'dos-ps-printer))
+				      (symbol-value 'dos-ps-printer))
+				 ps-printer-name))
+		    ;; It seems that we must be careful about the
+		    ;; directory name that gets added by write-region
+		    ;; when using the standard "PRN" or "LPTx" ports.
+		    ;; The call can fail if the directory is on a
+		    ;; network drive.
+		    (safe-dir (or (getenv "windir") (getenv "TMPDIR") "c:/")))
+		(write-region (point-min) (point-max)
+			      (expand-file-name printer safe-dir) t 0))
 	    (apply 'call-process-region
 		   (point-min) (point-max) ps-lpr-command nil
 		   (and (fboundp 'start-process) 0)