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 |