Mercurial > emacs
comparison lisp/international/utf-16.el @ 60305:a878c25f56db
(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.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 28 Feb 2005 07:15:42 +0000 |
| parents | b7fe21511efe |
| children | 7211619644bb |
comparison
equal
deleted
inserted
replaced
| 60304:7f27833efe51 | 60305:a878c25f56db |
|---|---|
| 389 (repeat)))) | 389 (repeat)))) |
| 390 ) | 390 ) |
| 391 | 391 |
| 392 | 392 |
| 393 (define-ccl-program ccl-encode-mule-utf-16le | 393 (define-ccl-program ccl-encode-mule-utf-16le |
| 394 `(1 | 394 `(2 |
| 395 ,utf-16le-encode-loop) | 395 ,utf-16le-encode-loop) |
| 396 "Encode to UTF-16LE (little endian without signature). | 396 "Encode to UTF-16LE (little endian without signature). |
| 397 Characters from the charsets ascii, eight-bit-control, | 397 Characters from the charsets ascii, eight-bit-control, |
| 398 eight-bit-graphic, latin-iso8859-1 and mule-unicode-* are encoded | 398 eight-bit-graphic, latin-iso8859-1 and mule-unicode-* are encoded |
| 399 after translation through the translation-table of name | 399 after translation through the translation-table of name |
| 400 `utf-translation-table-for-encode'. | 400 `utf-translation-table-for-encode'. |
| 401 Others are encoded as U+FFFD.") | 401 Others are encoded as U+FFFD.") |
| 402 | 402 |
| 403 (define-ccl-program ccl-encode-mule-utf-16be | 403 (define-ccl-program ccl-encode-mule-utf-16be |
| 404 `(1 | 404 `(2 |
| 405 ,utf-16be-encode-loop) | 405 ,utf-16be-encode-loop) |
| 406 "Encode to UTF-16BE (big endian without signature). | 406 "Encode to UTF-16BE (big endian without signature). |
| 407 Characters from the charsets ascii, eight-bit-control, | 407 Characters from the charsets ascii, eight-bit-control, |
| 408 eight-bit-graphic, latin-iso8859-1 and mule-unicode-* are encoded | 408 eight-bit-graphic, latin-iso8859-1 and mule-unicode-* are encoded |
| 409 after translation through the translation-table named | 409 after translation through the translation-table named |
| 410 `utf-translation-table-for-encode'. | 410 `utf-translation-table-for-encode'. |
| 411 Others are encoded as U+FFFD.") | 411 Others are encoded as U+FFFD.") |
| 412 | 412 |
| 413 (define-ccl-program ccl-encode-mule-utf-16le-with-signature | 413 (define-ccl-program ccl-encode-mule-utf-16le-with-signature |
| 414 `(1 | 414 `(4 |
| 415 ((write #xFF) | 415 ((write #xFF) |
| 416 (write #xFE) | 416 (write #xFE) |
| 417 ,@utf-16le-encode-loop)) | 417 ,@utf-16le-encode-loop)) |
| 418 "Encode to UTF-16 (little endian with signature). | 418 "Encode to UTF-16 (little endian with signature). |
| 419 Characters from the charsets ascii, eight-bit-control, | 419 Characters from the charsets ascii, eight-bit-control, |
| 421 after translation through the translation-table of name | 421 after translation through the translation-table of name |
| 422 `utf-translation-table-for-encode'. | 422 `utf-translation-table-for-encode'. |
| 423 Others are encoded as U+FFFD.") | 423 Others are encoded as U+FFFD.") |
| 424 | 424 |
| 425 (define-ccl-program ccl-encode-mule-utf-16be-with-signature | 425 (define-ccl-program ccl-encode-mule-utf-16be-with-signature |
| 426 `(1 | 426 `(4 |
| 427 ((write #xFE) | 427 ((write #xFE) |
| 428 (write #xFF) | 428 (write #xFF) |
| 429 ,@utf-16be-encode-loop)) | 429 ,@utf-16be-encode-loop)) |
| 430 "Encode to UTF-16 (big endian with signature). | 430 "Encode to UTF-16 (big endian with signature). |
| 431 Characters from the charsets ascii, eight-bit-control, | 431 Characters from the charsets ascii, eight-bit-control, |