diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-12-31 13:06:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-12-31 13:06:33 +0000 |
| commit | b41f6027fd38ed76289692984f9e43bee8b80be2 (patch) | |
| tree | 9e29292423ca0c409b7218a81741151a340e76e4 /lisp/lpr.el | |
| parent | 62bcf0098d9c3d46070cb003ddd341174a37d09f (diff) | |
| download | emacs-b41f6027fd38ed76289692984f9e43bee8b80be2.tar.gz | |
(print-region-1): If lpr-headers-switches is string,
turn it into a list before appending.
Diffstat (limited to 'lisp/lpr.el')
| -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)))) |