diff options
| -rw-r--r-- | lisp/ps-print.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index d5478d7da5b..6f18fd6857e 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el | |||
| @@ -4005,12 +4005,13 @@ If FACE is not a valid face name, it is used default face." | |||
| 4005 | (and ps-razzle-dazzle (message "Printing...")) | 4005 | (and ps-razzle-dazzle (message "Printing...")) |
| 4006 | (save-excursion | 4006 | (save-excursion |
| 4007 | (set-buffer ps-spool-buffer) | 4007 | (set-buffer ps-spool-buffer) |
| 4008 | (let ((coding-system-for-write 'raw-text-unix) | 4008 | (let* ((coding-system-for-write 'raw-text-unix) |
| 4009 | (ps-lpr-switches | 4009 | (ps-printer-name (or ps-printer-name printer-name)) |
| 4010 | (append | 4010 | (ps-lpr-switches |
| 4011 | (and (stringp ps-printer-name) | 4011 | (append |
| 4012 | (list (concat "-P" ps-printer-name))) | 4012 | (and (stringp ps-printer-name) |
| 4013 | ps-lpr-switches))) | 4013 | (list (concat "-P" ps-printer-name))) |
| 4014 | ps-lpr-switches))) | ||
| 4014 | (if (and (memq system-type '(ms-dos windows-nt)) | 4015 | (if (and (memq system-type '(ms-dos windows-nt)) |
| 4015 | (or (and (boundp 'dos-ps-printer) | 4016 | (or (and (boundp 'dos-ps-printer) |
| 4016 | (stringp (symbol-value 'dos-ps-printer))) | 4017 | (stringp (symbol-value 'dos-ps-printer))) |