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, |