X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/038205144ec744d5e49ed108fce7daca8634138c..3e56710f649d8c4c198c92e8047f60687e30ad23:/lisp/ps-print.el

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index d5478d7da5..6f18fd6857 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -4005,12 +4005,13 @@ If FACE is not a valid face name, it is used default face."
       (and ps-razzle-dazzle (message "Printing..."))
       (save-excursion
 	(set-buffer ps-spool-buffer)
-	(let ((coding-system-for-write 'raw-text-unix)
-	      (ps-lpr-switches
-	       (append
-		(and (stringp ps-printer-name)
-		     (list (concat "-P" ps-printer-name)))
-		ps-lpr-switches)))
+	(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)))
 	  (if (and (memq system-type '(ms-dos windows-nt))
 		   (or (and (boundp 'dos-ps-printer)
 			    (stringp (symbol-value 'dos-ps-printer)))