(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 7fa9d912e227e67421db7845572f1a6465360727..bf27a8b8012ba7ccbd1872675250b0f3981f36b1 100644 (file)
--- 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))))