diff options
| author | Geoff Voelker <[email protected]> | 1998-12-07 19:27:26 +0000 |
|---|---|---|
| committer | Geoff Voelker <[email protected]> | 1998-12-07 19:27:26 +0000 |
| commit | a953784890260e2504b7dcb9bebf07a2469c8615 (patch) | |
| tree | f455529c4d3fd948409eb3c577269d4e3aabad59 /lisp/ps-print.el | |
| parent | e9847e6c13b4ce0eca9748444385de3658425a50 (diff) | |
(ps-do-despool) [ms-dos, windows-nt]: Ditto for
ps-printer-name.
Diffstat (limited to 'lisp/ps-print.el')
| -rw-r--r-- | lisp/ps-print.el | 24 |
1 files changed, 19 insertions, 5 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 7a6a2287de..25f08f5fbe 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -5306,12 +5306,26 @@ If FACE is not a valid face name, it is used default face." (let* ((coding-system-for-write 'raw-text-unix) (ps-printer-name (or ps-printer-name printer-name)) (ps-lpr-switches - (append (and (stringp ps-printer-name) - (list (concat "-P" ps-printer-name))) - ps-lpr-switches))) + (append + (and (stringp ps-printer-name) + (list (concat "-P" ps-printer-name))) + ps-lpr-switches))) (if (and (memq system-type '(ms-dos windows-nt)) - (stringp ps-printer-name)) - (write-region (point-min) (point-max) ps-printer-name t 0) + (or (and (boundp 'dos-ps-printer) + (stringp (symbol-value 'dos-ps-printer))) + (stringp ps-printer-name))) + (let ((printer (or (and (boundp 'dos-ps-printer) + (stringp (symbol-value 'dos-ps-printer)) + (symbol-value 'dos-ps-printer)) + ps-printer-name)) + ;; It seems that we must be careful about the + ;; directory name that gets added by write-region + ;; when using the standard "PRN" or "LPTx" ports. + ;; The call can fail if the directory is on a + ;; network drive. + (safe-dir (or (getenv "windir") (getenv "TMPDIR") "c:/"))) + (write-region (point-min) (point-max) + (expand-file-name printer safe-dir) t 0)) (apply 'call-process-region (point-min) (point-max) ps-lpr-command nil (and (fboundp 'start-process) 0) |