Mercurial > emacs
comparison lisp/ps-print.el @ 14190:395b22713872
(ps-do-despool): On MS-DOS, allow both the usual and
the alternative printing methods.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 15 Jan 1996 22:50:35 +0000 |
| parents | 83f275dcd93a |
| children | e555a2d12121 |
comparison
equal
deleted
inserted
replaced
| 14189:557b3d11a381 | 14190:395b22713872 |
|---|---|
| 1867 ;; Else, spool to the printer | 1867 ;; Else, spool to the printer |
| 1868 (if ps-razzle-dazzle | 1868 (if ps-razzle-dazzle |
| 1869 (message "Printing...")) | 1869 (message "Printing...")) |
| 1870 (save-excursion | 1870 (save-excursion |
| 1871 (set-buffer ps-spool-buffer) | 1871 (set-buffer ps-spool-buffer) |
| 1872 (if (eq system-type 'ms-dos) | 1872 (if (and (eq system-type 'ms-dos) (stringp dos-ps-printer)) |
| 1873 (write-region (point-min) (point-max) "PRN") | 1873 (write-region (point-min) (point-max) dos-ps-printer t 0) |
| 1874 (apply 'call-process-region | 1874 (let ((binary-process-input t)) ; for MS-DOS |
| 1875 (point-min) (point-max) ps-lpr-command nil 0 nil | 1875 (apply 'call-process-region |
| 1876 ps-lpr-switches))) | 1876 (point-min) (point-max) ps-lpr-command nil |
| 1877 (if (fboundp 'start-process) 0 nil) | |
| 1878 nil | |
| 1879 ps-lpr-switches)))) | |
| 1877 (if ps-razzle-dazzle | 1880 (if ps-razzle-dazzle |
| 1878 (message "Printing...done"))) | 1881 (message "Printing...done"))) |
| 1879 (kill-buffer ps-spool-buffer))) | 1882 (kill-buffer ps-spool-buffer))) |
| 1880 | 1883 |
| 1881 (defun ps-kill-emacs-check () | 1884 (defun ps-kill-emacs-check () |