# HG changeset patch
# User Andrew Innes <andrewi@gnu.org>
# Date 925638502 0
# Node ID 5d61c3793c062acf4c8e0b366276be8b5b625d89
# Parent  a969304198eb67fab79a9169a69f0bfc1a384ac9
(cp-coding-system-for-codepage-1):
Make the magnification parameter for the -dos encoder be 2.

diff -r a969304198eb -r 5d61c3793c06 lisp/international/codepage.el
--- a/lisp/international/codepage.el	Sun May 02 09:45:17 1999 +0000
+++ b/lisp/international/codepage.el	Sun May 02 09:48:22 1999 +0000
@@ -88,7 +88,11 @@
 		       (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))