mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(lpr-add-switches): Renamed from lpr-add-options.

Browse Source 
(print-region-1): If we run pr, give it the -h option
instead of giving lpr the -T option.
This commit is contained in:
Richard M. Stallman 1995-02-06 03:30:19 +00:00
parent c066ae5ca0
commit a3324470da
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/lpr.el
View File

@ -33,7 +33,7 @@
(defvar lpr-switches nil
"*List of strings to pass as extra switch args to `lpr' when it is invoked.")
(defvar lpr-add-options (eq system-type 'berkeley-unix)
(defvar lpr-add-switches (eq system-type 'berkeley-unix)
"*Non-nil means construct -T and -J options for the `lpr'.")
;;;###autoload
@ -114,14 +114,20 @@ See definition of `print-region-1' for calling conventions.")
switches))
;; Run a separate program to get page headers.
(print-region-new-buffer start end)
(call-process-region start end lpr-page-header-program
t t lpr-page-header-switches)
(apply 'call-process-region start end lpr-page-header-program
t t nil
(nconc (and lpr-add-switches
(list "-h" title))
lpr-page-header-switches))
(setq start (point-min) end (point-max))))
(apply (or print-region-function 'call-process-region)
(nconc (list start end lpr-command
nil nil nil)
(nconc (and lpr-add-options
(list "-J" name "-T" title))
(nconc (and lpr-add-switches
(list "-J" name))
;; These belong in pr if we are using that.
(and lpr-add-switches lpr-headers-switches
(list "-T" title))
switches)))
(if (markerp end)
(set-marker end nil))