mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
turn it into a list before appending.
This commit is contained in:
Richard M. Stallman 1993-12-31 13:06:33 +00:00
parent 62bcf0098d
commit b41f6027fd
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/lpr.el
View file

@ -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))))