From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 31 Dec 1993 13:06:33 +0000 (+0000)
Subject: (print-region-1): If lpr-headers-switches is string,
X-Git-Tag: emacs-19.34~10460
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b41f6027fd38ed76289692984f9e43bee8b80be2;p=emacs.git

(print-region-1): If lpr-headers-switches is string,
turn it into a list before appending.
---

diff --git a/lisp/lpr.el b/lisp/lpr.el
index 7fa9d912e22..bf27a8b8012 100644
--- a/lisp/lpr.el
+++ b/lisp/lpr.el
@@ -93,7 +93,10 @@ See definition of `print-region-1' for calling conventions.")
       (if page-headers
 	  (if lpr-headers-switches
 	      ;; On BSD, use an option to get page headers.
-	      (setq switches (append lpr-headers-switches switches))
+	      (setq switches (append (if (stringp lpr-headers-switches)
+					 (list lpr-headers-switches)
+				        lpr-headers-switches)
+				     switches))
 	    (print-region-new-buffer start end)
 	    (call-process-region start end "pr" t t nil)
 	    (setq start (point-min) end (point-max))))