Mercurial > emacs
comparison lisp/ps-print.el @ 22751:75c35003c69f
(ps-do-despool): Bind ps-printer-name to printer-name if the former is
nil.
| author | Andrew Innes <andrewi@gnu.org> |
|---|---|
| date | Mon, 13 Jul 1998 19:58:49 +0000 |
| parents | 3cf03f32956c |
| children | 25c95d9da0af |
comparison
equal
deleted
inserted
replaced
| 22750:b38cb406ed80 | 22751:75c35003c69f |
|---|---|
| 4003 (and ps-razzle-dazzle (message "Wrote %s" filename))) | 4003 (and ps-razzle-dazzle (message "Wrote %s" filename))) |
| 4004 ;; Else, spool to the printer | 4004 ;; Else, spool to the printer |
| 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))) |
| 4017 (stringp (symbol-value 'ps-printer-name)))) | 4018 (stringp (symbol-value 'ps-printer-name)))) |
| 4018 (write-region (point-min) (point-max) | 4019 (write-region (point-min) (point-max) |