Mercurial > emacs
comparison lisp/dos-w32.el @ 53740:19655fe347ec
Added support for the `default-printer-name' function.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Wed, 28 Jan 2004 23:32:55 +0000 |
| parents | 695cf19ef79e |
| children | 6fb026ad601f |
comparison
equal
deleted
inserted
replaced
| 53739:5456cd83c404 | 53740:19655fe347ec |
|---|---|
| 376 `((,end . "\f")))) | 376 `((,end . "\f")))) |
| 377 write-region-annotate-functions)) | 377 write-region-annotate-functions)) |
| 378 (printer (or (and (boundp 'dos-printer) | 378 (printer (or (and (boundp 'dos-printer) |
| 379 (stringp (symbol-value 'dos-printer)) | 379 (stringp (symbol-value 'dos-printer)) |
| 380 (symbol-value 'dos-printer)) | 380 (symbol-value 'dos-printer)) |
| 381 printer-name))) | 381 printer-name |
| 382 (default-printer-name)))) | |
| 382 (or (eq coding-system-for-write 'no-conversion) | 383 (or (eq coding-system-for-write 'no-conversion) |
| 383 (setq coding-system-for-write | 384 (setq coding-system-for-write |
| 384 (aref eol-type 1))) ; force conversion to DOS EOLs | 385 (aref eol-type 1))) ; force conversion to DOS EOLs |
| 385 (direct-print-region-helper printer start end lpr-prog | 386 (direct-print-region-helper printer start end lpr-prog |
| 386 delete-text buf display rest))) | 387 delete-text buf display rest))) |
| 409 indicates a specific program should be invoked." | 410 indicates a specific program should be invoked." |
| 410 | 411 |
| 411 (let ((printer (or (and (boundp 'dos-ps-printer) | 412 (let ((printer (or (and (boundp 'dos-ps-printer) |
| 412 (stringp (symbol-value 'dos-ps-printer)) | 413 (stringp (symbol-value 'dos-ps-printer)) |
| 413 (symbol-value 'dos-ps-printer)) | 414 (symbol-value 'dos-ps-printer)) |
| 414 ps-printer-name))) | 415 ps-printer-name |
| 416 (default-printer-name)))) | |
| 415 (direct-print-region-helper printer start end lpr-prog | 417 (direct-print-region-helper printer start end lpr-prog |
| 416 delete-text buf display rest))) | 418 delete-text buf display rest))) |
| 417 | 419 |
| 418 (setq ps-print-region-function 'direct-ps-print-region-function) | 420 (setq ps-print-region-function 'direct-ps-print-region-function) |
| 419 | 421 |