# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 757343193 0
# Node ID 0306cbfa87b74835e92a76b02aaccfce4b0678e0
# Parent  d9c81d7079f32f9317bc034963d003aab79463f0
(print-region-1): If lpr-headers-switches is string,
turn it into a list before appending.

diff -r d9c81d7079f3 -r 0306cbfa87b7 lisp/lpr.el
--- a/lisp/lpr.el	Fri Dec 31 12:56:41 1993 +0000
+++ b/lisp/lpr.el	Fri Dec 31 13:06:33 1993 +0000
@@ -93,7 +93,10 @@
       (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))))