diff options
| -rw-r--r-- | lisp/dos-fns.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el index c640633000c..e3ae53bd070 100644 --- a/lisp/dos-fns.el +++ b/lisp/dos-fns.el | |||
| @@ -139,11 +139,14 @@ Writes the region to the device or file which is a value of | |||
| 139 | `dos-printer' \(which see\). Ignores any arguments beyond | 139 | `dos-printer' \(which see\). Ignores any arguments beyond |
| 140 | START and END." | 140 | START and END." |
| 141 | 141 | ||
| 142 | (write-region start end dos-printer t 0) | 142 | ;; DOS printers need the lines to end with CR-LF pairs, so make |
| 143 | ;; Make each print-out start on a new page, but don't waste | 143 | ;; sure it always happens that way. |
| 144 | ;; paper if there was a form-feed at the end of this file. | 144 | (let ((coding-system-for-write 'undecided-dos)) |
| 145 | (if (not (char-equal (char-after (1- end)) ?\C-l)) | 145 | (write-region start end dos-printer t 0) |
| 146 | (write-region "\f" nil dos-printer t 0))) | 146 | ;; Make each print-out start on a new page, but don't waste |
| 147 | ;; paper if there was a form-feed at the end of this file. | ||
| 148 | (if (not (char-equal (char-after (1- end)) ?\C-l)) | ||
| 149 | (write-region "\f" nil dos-printer t 0)))) | ||
| 147 | 150 | ||
| 148 | ;; Set this to nil if you have a port of the `lpr' program and | 151 | ;; Set this to nil if you have a port of the `lpr' program and |
| 149 | ;; you want to use it for printing. If the default setting is | 152 | ;; you want to use it for printing. If the default setting is |