aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorKenichi Handa <[email protected]>2005-02-28 07:19:16 +0000
committerKenichi Handa <[email protected]>2005-02-28 07:19:16 +0000
commitdbaba2d2955aee0f475ad92fab2755314aa3f48a (patch)
treed510d6950494fcb16968d2966b5bd649ae082db8 /lisp
parent2843ef86a59968bdad082cfd4181da321b75612f (diff)
(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.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog12
-rw-r--r--lisp/international/utf-16.el8
2 files changed, 16 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 10b1311732..7c3842ea3a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2005-02-28 Chong Yidong" <[email protected]> (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 <[email protected]>
+
+ * 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 <[email protected]>
* speedbar.el (speedbar-update-flag): Doc fix.
diff --git a/lisp/international/utf-16.el b/lisp/international/utf-16.el
index 477cccc2bf..04c9f68213 100644
--- 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))