Commit 566f38a0 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(ucs-unify-8859, ucs-fragment-8859): Adjusted for the name change:

xxx-utf-16-{le,be} -> xxx-utf-16{le,be}.
parent 72b338a2
......@@ -1180,7 +1180,9 @@ everything on input operations."
(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 @@ unification on input operations."
;; 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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment