Mercurial > emacs
changeset 28442:efd5a62ccce9
(print-region-1): Use -d to specify printer name for
systems `usg-unix-v*, `dgux', `hpux', `irix'.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 31 Mar 2000 11:29:51 +0000 |
| parents | a7b3ff772283 |
| children | 17fb2089c222 |
| files | lisp/lpr.el |
| diffstat | 1 files changed, 15 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/lpr.el Fri Mar 31 11:28:14 2000 +0000 +++ b/lisp/lpr.el Fri Mar 31 11:29:51 2000 +0000 @@ -219,17 +219,21 @@ (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))))