Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1997-08-12 05:47:05 +00:00
parent 0cdbb11dee
commit 7c96c058a6
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/dos-fns.el
View file

@ -139,11 +139,14 @@ 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)))
;; 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