Mercurial > emacs
changeset 51629:0333f026178a
(ucs-unify-8859, ucs-fragment-8859): Adjusted for the name change:
xxx-utf-16-{le,be} -> xxx-utf-16{le,be}.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 21 Jun 2003 02:25:19 +0000 |
| parents | abfc7d48b476 |
| children | 90215b7be64d |
| files | lisp/international/ucs-tables.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/ucs-tables.el Sat Jun 21 02:24:14 2003 +0000 +++ b/lisp/international/ucs-tables.el Sat Jun 21 02:25:19 2003 +0000 @@ -1180,7 +1180,9 @@ (when for-encode ;; Make mule-utf-* encode all characters in ucs-mule-to-mule-unicode. - (let ((coding-list '(mule-utf-8 mule-utf-16-be mule-utf-16-le))) + (let ((coding-list '(mule-utf-8 mule-utf-16be mule-utf-16le + mule-utf-16be-with-signature + mule-utf-16le-with-signature))) (define-translation-table 'utf-translation-table-for-encode ucs-mule-to-mule-unicode) (dolist (coding coding-list) @@ -1219,7 +1221,9 @@ ;; ucs-mule-to-mule-unicode except what was originally supported ;; and what is translated by utf-translation-table-for-decode when ;; `utf-fragment-on-decoding' is non-nil. - (let ((coding-list '(mule-utf-8 mule-utf-16-be mule-utf-16-le)) + (let ((coding-list '(mule-utf-8 mule-utf-16be mule-utf-16le + mule-utf-16be-with-signature + mule-utf-16le-with-signature)) (safe (coding-system-get 'mule-utf-8 'safe-chars))) (dolist (coding coding-list) (set-char-table-parent (coding-system-get coding 'safe-chars) nil))