1180 |
|
|
1181 |
(when for-encode |
(when for-encode |
1182 |
;; Make mule-utf-* encode all characters in ucs-mule-to-mule-unicode. |
;; Make mule-utf-* encode all characters in ucs-mule-to-mule-unicode. |
1183 |
(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 |
1184 |
|
mule-utf-16be-with-signature |
1185 |
|
mule-utf-16le-with-signature))) |
1186 |
(define-translation-table 'utf-translation-table-for-encode |
(define-translation-table 'utf-translation-table-for-encode |
1187 |
ucs-mule-to-mule-unicode) |
ucs-mule-to-mule-unicode) |
1188 |
(dolist (coding coding-list) |
(dolist (coding coding-list) |
1221 |
;; ucs-mule-to-mule-unicode except what was originally supported |
;; ucs-mule-to-mule-unicode except what was originally supported |
1222 |
;; and what is translated by utf-translation-table-for-decode when |
;; and what is translated by utf-translation-table-for-decode when |
1223 |
;; `utf-fragment-on-decoding' is non-nil. |
;; `utf-fragment-on-decoding' is non-nil. |
1224 |
(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 |
1225 |
|
mule-utf-16be-with-signature |
1226 |
|
mule-utf-16le-with-signature)) |
1227 |
(safe (coding-system-get 'mule-utf-8 'safe-chars))) |
(safe (coding-system-get 'mule-utf-8 'safe-chars))) |
1228 |
(dolist (coding coding-list) |
(dolist (coding coding-list) |
1229 |
(set-char-table-parent (coding-system-get coding 'safe-chars) nil)) |
(set-char-table-parent (coding-system-get coding 'safe-chars) nil)) |