procyberian/emacs
1
0
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

(print-region-1): Use -d to specify printer name for

Browse source 
systems `usg-unix-v*, `dgux', `hpux', `irix'.
This commit is contained in:
Gerd Moellmann 2000-03-31 11:29:51 +00:00
parent c3b2784b4b
commit ba74d3e36a
1 changed files with 15 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
lisp/lpr.el
View file

@ -219,17 +219,21 @@ for further customization of the printer command."
(nconc (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-switches
(list "-J" name))
;; These belong in pr if we are using that.
(and lpr-add-switches lpr-headers-switches
(list "-T" title))
(and (stringp printer-name)
(list (concat "-P" printer-name)))
switches)))
(let ((printer-name-switch (if (memq system-type
'(usg-unix-v dgux hpux irix))
"-d" "-P")))
(apply (or print-region-function 'call-process-region)
(nconc (list start end lpr-command
nil nil nil)
(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))
(and (stringp printer-name)
(list (concat printer-name-switch
printer-name)))
switches))))
(if (markerp end)
(set-marker end nil))
(message "Spooling%s...done" switch-string))))