Mercurial > emacs
comparison lisp/international/utf-16.el @ 64123:4161411b91d0
Declare that all UTF-16-based coding
systems ASCII-incompatible.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 07 Jul 2005 06:18:59 +0000 |
| parents | 18a818a2ee7c |
| children | 43cc94d955c2 |
comparison
equal
deleted
inserted
replaced
| 64122:c9251f75fc62 | 64123:4161411b91d0 |
|---|---|
| 502 "UTF-16LE encoding for Emacs-supported Unicode characters." | 502 "UTF-16LE encoding for Emacs-supported Unicode characters." |
| 503 doc) | 503 doc) |
| 504 '(ccl-decode-mule-utf-16le . ccl-encode-mule-utf-16le) | 504 '(ccl-decode-mule-utf-16le . ccl-encode-mule-utf-16le) |
| 505 `(,@props | 505 `(,@props |
| 506 (post-read-conversion . utf-8-post-read-conversion) | 506 (post-read-conversion . utf-8-post-read-conversion) |
| 507 (ascii-incompatible . t) | |
| 507 (mime-charset . utf-16le))) | 508 (mime-charset . utf-16le))) |
| 508 | 509 |
| 509 (make-coding-system | 510 (make-coding-system |
| 510 'mule-utf-16be 4 ?u | 511 'mule-utf-16be 4 ?u |
| 511 (concat | 512 (concat |
| 513 doc) | 514 doc) |
| 514 | 515 |
| 515 '(ccl-decode-mule-utf-16be . ccl-encode-mule-utf-16be) | 516 '(ccl-decode-mule-utf-16be . ccl-encode-mule-utf-16be) |
| 516 `(,@props | 517 `(,@props |
| 517 (post-read-conversion . utf-8-post-read-conversion) | 518 (post-read-conversion . utf-8-post-read-conversion) |
| 519 (ascii-incompatible . t) | |
| 518 (mime-charset . utf-16be))) | 520 (mime-charset . utf-16be))) |
| 519 | 521 |
| 520 (make-coding-system | 522 (make-coding-system |
| 521 'mule-utf-16le-with-signature 4 ?u | 523 'mule-utf-16le-with-signature 4 ?u |
| 522 (concat | 524 (concat |
| 526 '(ccl-decode-mule-utf-16le-with-signature | 528 '(ccl-decode-mule-utf-16le-with-signature |
| 527 . ccl-encode-mule-utf-16le-with-signature) | 529 . ccl-encode-mule-utf-16le-with-signature) |
| 528 `(,@props | 530 `(,@props |
| 529 (post-read-conversion . utf-8-post-read-conversion) | 531 (post-read-conversion . utf-8-post-read-conversion) |
| 530 (coding-category . coding-category-utf-16-le) | 532 (coding-category . coding-category-utf-16-le) |
| 533 (ascii-incompatible . t) | |
| 531 (mime-charset . utf-16))) | 534 (mime-charset . utf-16))) |
| 532 | 535 |
| 533 (make-coding-system | 536 (make-coding-system |
| 534 'mule-utf-16be-with-signature 4 ?u | 537 'mule-utf-16be-with-signature 4 ?u |
| 535 (concat | 538 (concat |
| 539 '(ccl-decode-mule-utf-16be-with-signature | 542 '(ccl-decode-mule-utf-16be-with-signature |
| 540 . ccl-encode-mule-utf-16be-with-signature) | 543 . ccl-encode-mule-utf-16be-with-signature) |
| 541 `(,@props | 544 `(,@props |
| 542 (post-read-conversion . utf-8-post-read-conversion) | 545 (post-read-conversion . utf-8-post-read-conversion) |
| 543 (coding-category . coding-category-utf-16-be) | 546 (coding-category . coding-category-utf-16-be) |
| 547 (ascii-incompatible . t) | |
| 544 (mime-charset . utf-16))) | 548 (mime-charset . utf-16))) |
| 545 | 549 |
| 546 (make-coding-system | 550 (make-coding-system |
| 547 'mule-utf-16 4 ?u | 551 'mule-utf-16 4 ?u |
| 548 (concat | 552 (concat |
| 551 | 555 |
| 552 '(ccl-decode-mule-utf-16 . ccl-encode-mule-utf-16be-with-signature) | 556 '(ccl-decode-mule-utf-16 . ccl-encode-mule-utf-16be-with-signature) |
| 553 `(,@props | 557 `(,@props |
| 554 (post-read-conversion . mule-utf-16-post-read-conversion) | 558 (post-read-conversion . mule-utf-16-post-read-conversion) |
| 555 (coding-category . coding-category-utf-16-be) | 559 (coding-category . coding-category-utf-16-be) |
| 560 (ascii-incompatible . t) | |
| 556 (mime-charset . utf-16))) | 561 (mime-charset . utf-16))) |
| 557 ) | 562 ) |
| 558 | 563 |
| 559 (define-coding-system-alias 'utf-16le 'mule-utf-16le) | 564 (define-coding-system-alias 'utf-16le 'mule-utf-16le) |
| 560 (define-coding-system-alias 'utf-16be 'mule-utf-16be) | 565 (define-coding-system-alias 'utf-16be 'mule-utf-16be) |