(ccl-encode-mule-utf-16le): Fix

BUFFER_MAGNIFICATION to 2.
(ccl-encode-mule-utf-16be): Likewise.
(ccl-encode-mule-utf-16le-with-signature): Fix
BUFFER_MAGNIFICATION to 4.
(ccl-encode-mule-utf-16be-with-signature): Likewise.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 10b13117322da62a93f19131595f225aa77f12a8..7c3842ea3a5f9b629455e065750b5c6755b4e688 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2005-02-28  Chong Yidong" <cyd@stupidchicken.com> (tiny change)
+
+       * international/utf-16.el (ccl-encode-mule-utf-16le): Fix
+       BUFFER_MAGNIFICATION to 2.
+       (ccl-encode-mule-utf-16be): Likewise.
+
+2005-02-28  Kenichi Handa  <handa@m17n.org>
+
+       * international/utf-16.el (ccl-encode-mule-utf-16le-with-signature):
+       Fix BUFFER_MAGNIFICATION to 4.
+       (ccl-encode-mule-utf-16be-with-signature): Likewise.
+
 2005-02-28  Nick Roberts  <nickrob@snap.net.nz>
 
        * speedbar.el (speedbar-update-flag): Doc fix.

diff --git a/lisp/international/utf-16.el b/lisp/international/utf-16.el
index 477cccc2bf983708419c4f3c6b8546609fefcde5..04c9f6821391db517009f7e701198a707adc6518 100644 (file)
--- a/lisp/international/utf-16.el
+++ b/lisp/international/utf-16.el
@@ -391,7 +391,7 @@ name `utf-translation-table-for-decode'.")
 
 
 (define-ccl-program ccl-encode-mule-utf-16le
-  `(1
+  `(2
     ,utf-16le-encode-loop)
   "Encode to UTF-16LE (little endian without signature).
 Characters from the charsets ascii, eight-bit-control,
@@ -401,7 +401,7 @@ after translation through the translation-table of name
 Others are encoded as U+FFFD.")
 
 (define-ccl-program ccl-encode-mule-utf-16be
-  `(1
+  `(2
     ,utf-16be-encode-loop)
   "Encode to UTF-16BE (big endian without signature).
 Characters from the charsets ascii, eight-bit-control,
@@ -411,7 +411,7 @@ after translation through the translation-table named
 Others are encoded as U+FFFD.")
 
 (define-ccl-program ccl-encode-mule-utf-16le-with-signature
-  `(1
+  `(4
     ((write #xFF)
      (write #xFE)
      ,@utf-16le-encode-loop))
@@ -423,7 +423,7 @@ after translation through the translation-table of name
 Others are encoded as U+FFFD.")
 
 (define-ccl-program ccl-encode-mule-utf-16be-with-signature
-  `(1
+  `(4
     ((write #xFE)
      (write #xFF)
      ,@utf-16be-encode-loop))