diff options
| -rw-r--r-- | lisp/lpr.el | 26 |
1 files changed, 15 insertions, 11 deletions
diff --git a/lisp/lpr.el b/lisp/lpr.el index a6fe0459e73..7eb76613719 100644 --- a/lisp/lpr.el +++ b/lisp/lpr.el @@ -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)))) |