Mercurial > emacs

comparison lisp/dos-w32.el @ 91073:4bc33ffdda1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 902-908) - Update from CVS - Merge from emacs--rel--22 * emacs--rel--22 (patch 131-137) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 261-262) - Update from CVS Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-278
author Miles Bader <miles@gnu.org>
date Sat, 27 Oct 2007 09:12:07 +0000
parents f55f9811f5d7 589532be95ec
children 53108e6cea98
comparison
equal deleted inserted replaced
91072:74ab3ea909f9 91073:4bc33ffdda1a
402 (setq coding-system-for-write 402 (setq coding-system-for-write
403 (aref eol-type 1))) ; force conversion to DOS EOLs 403 (aref eol-type 1))) ; force conversion to DOS EOLs
404 (direct-print-region-helper printer start end lpr-prog 404 (direct-print-region-helper printer start end lpr-prog
405 delete-text buf display rest))) 405 delete-text buf display rest)))
406 406
407 (defvar print-region-function)
408 (defvar lpr-headers-switches)
407 (setq print-region-function 'direct-print-region-function) 409 (setq print-region-function 'direct-print-region-function)
408 410
409 ;; Set this to nil if you have a port of the `pr' program 411 ;; Set this to nil if you have a port of the `pr' program
410 ;; (e.g., from GNU Textutils), or if you have an `lpr' 412 ;; (e.g., from GNU Textutils), or if you have an `lpr'
411 ;; program (see above) that can print page headers. 413 ;; program (see above) that can print page headers.
433 ps-printer-name 435 ps-printer-name
434 (default-printer-name)))) 436 (default-printer-name))))
435 (direct-print-region-helper printer start end lpr-prog 437 (direct-print-region-helper printer start end lpr-prog
436 delete-text buf display rest))) 438 delete-text buf display rest)))
437 439
440 (defvar ps-print-region-function)
438 (setq ps-print-region-function 'direct-ps-print-region-function) 441 (setq ps-print-region-function 'direct-ps-print-region-function)
439 442
440 ;(setq ps-lpr-command "gs") 443 ;(setq ps-lpr-command "gs")
441 444
442 ;(setq ps-lpr-switches '("-q" "-dNOPAUSE" "-sDEVICE=epson" "-r240x60" 445 ;(setq ps-lpr-switches '("-q" "-dNOPAUSE" "-sDEVICE=epson" "-r240x60"