Mercurial > emacs
comparison lisp/dos-w32.el @ 89909:68c22ea6027c
Sync to HEAD
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 16 Apr 2004 12:51:06 +0000 |
| parents | 375f2633d815 |
| children | f9a65d7ebd29 |
comparison
equal
deleted
inserted
replaced
| 89908:ee1402f7b568 | 89909:68c22ea6027c |
|---|---|
| 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 |
| 422 ;(setq ps-lpr-switches '("-q" "-dNOPAUSE" "-sDEVICE=epson" "-r240x60" | 424 ;(setq ps-lpr-switches '("-q" "-dNOPAUSE" "-sDEVICE=epson" "-r240x60" |
| 423 ; "-sOutputFile=LPT1")) | 425 ; "-sOutputFile=LPT1")) |
| 424 | 426 |
| 425 (provide 'dos-w32) | 427 (provide 'dos-w32) |
| 426 | 428 |
| 429 ;;; arch-tag: dcfefdd2-362f-4fbc-9141-9634f5f4d6a7 | |
| 427 ;;; dos-w32.el ends here | 430 ;;; dos-w32.el ends here |