diff options
| -rw-r--r-- | lisp/lpr.el | 5 |
1 files changed, 4 insertions, 1 deletions
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)))) |