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 | b6e412efb05fe81e67e59fa8bdb44f21e0540cfe (patch) | |
| tree | 080a0600835f1154aeabd3863f78b94f74a187fe /lisp/lpr.el | |
| parent | 75b6103d8138b0f443f215bb3112073a904e1ec8 (diff) | |
| download | emacs-b6e412efb05fe81e67e59fa8bdb44f21e0540cfe.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)))) |