# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1109574942 0
# Node ID a878c25f56db2176bb80979a6fafaf1a1f25d34d
# Parent  7f27833efe51d9fa88215cc4081e071f4b654ddb
(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 -r 7f27833efe51 -r a878c25f56db lisp/international/utf-16.el
--- a/lisp/international/utf-16.el	Mon Feb 28 06:18:37 2005 +0000
+++ b/lisp/international/utf-16.el	Mon Feb 28 07:15:42 2005 +0000
@@ -391,7 +391,7 @@
 
 
 (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 @@
 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 @@
 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 @@
 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))