Commit b41f6027 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(print-region-1): If lpr-headers-switches is string,

turn it into a list before appending.
parent 62bcf009
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment