Mercurial > emacs
changeset 5391:0306cbfa87b7
(print-region-1): If lpr-headers-switches is string,
turn it into a list before appending.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 31 Dec 1993 13:06:33 +0000 |
| parents | d9c81d7079f3 |
| children | d8d5844c3ba6 |
| files | lisp/lpr.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))))