From b41f6027fd38ed76289692984f9e43bee8b80be2 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 31 Dec 1993 13:06:33 +0000 Subject: [PATCH] (print-region-1): If lpr-headers-switches is string, turn it into a list before appending. --- lisp/lpr.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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)))) -- 2.39.5