(cp-coding-system-for-codepage-1):

Make the magnification parameter for the -dos encoder be 2.

diff --git a/lisp/international/codepage.el b/lisp/international/codepage.el
index b71bfdc65bbc90157c783b98abc9d9729b2f2423..1d7631bc4b7782d434ca57cc6b9a02f679fc4189 100644 (file)
--- a/lisp/international/codepage.el
+++ b/lisp/international/codepage.el
@@ -88,7 +88,11 @@ variety is actually just an alias for the -unix variety)."
                       (repeat)))))
           (ccl-encoder-dos
            (ccl-compile
-            `(1 (loop (read-multibyte-character r0 r1)
+            ;; The 2 here supplies the buf_magnification parameter for
+            ;; the CCL program.  Since the -dos coding system generates
+            ;; \r\n for each \n, a factor of 2 covers even the worst case
+            ;; of empty lines with a single \n.
+            `(2 (loop (read-multibyte-character r0 r1)
                       (if (r1 == ?\n)
                           (write ?\r)
                         (if (r0 != ,(charset-id 'ascii))