comparison lisp/dos-fns.el @ 19314:860783b225b9

(dos-print-region-function): Force EOL conversion to DOS CR-LF pairs.

19313:04175c55c49b

  "MS-DOS-specific function to print the region on a printer.
Writes the region to the device or file which is a value of
`dos-printer' \(which see\).  Ignores any arguments beyond
START and END."

  (write-region start end dos-printer t 0)
  ;; Make each print-out start on a new page, but don't waste
  ;; paper if there was a form-feed at the end of this file.
  (if (not (char-equal (char-after (1- end)) ?\C-l))
      (write-region "\f" nil dos-printer t 0)))

;; Set this to nil if you have a port of the `lpr' program and
;; you want to use it for printing.  If the default setting is
;; in effect, `lpr-command' and its switches are ignored when
;; printing with `lpr-xxx' and `print-xxx'.

19314:860783b225b9

  "MS-DOS-specific function to print the region on a printer.
Writes the region to the device or file which is a value of
`dos-printer' \(which see\).  Ignores any arguments beyond
START and END."

  ;; DOS printers need the lines to end with CR-LF pairs, so make
  ;; sure it always happens that way.
  (let ((coding-system-for-write 'undecided-dos))
    (write-region start end dos-printer t 0)
    ;; Make each print-out start on a new page, but don't waste
    ;; paper if there was a form-feed at the end of this file.
    (if (not (char-equal (char-after (1- end)) ?\C-l))
	(write-region "\f" nil dos-printer t 0))))

;; Set this to nil if you have a port of the `lpr' program and
;; you want to use it for printing.  If the default setting is
;; in effect, `lpr-command' and its switches are ignored when
;; printing with `lpr-xxx' and `print-xxx'.