From: Andrew Innes <andrewi@gnu.org>
Date: Mon, 13 Jul 1998 19:58:49 +0000 (+0000)
Subject: (ps-do-despool): Bind ps-printer-name to printer-name if the former is
X-Git-Tag: emacs-20.3~328
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=200127fd0dbc55febfc53339dd440f64c5cd8b86;p=emacs.git

(ps-do-despool): Bind ps-printer-name to printer-name if the former is
nil.
---

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index d5478d7da5b..6f18fd6857e 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)))