From: Andrew Innes <andrewi@gnu.org>
Date: Sun, 2 May 1999 09:48:22 +0000 (+0000)
Subject: (cp-coding-system-for-codepage-1):
X-Git-Tag: emacs-20.4~287
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=07a96c46096bd5478d6cfee5c341d20d76455a6c;p=emacs.git

(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 b71bfdc65bb..1d7631bc4b7 100644
--- 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))