246 |
(load "subst-gb2312") |
(load "subst-gb2312") |
247 |
(load "subst-big5") |
(load "subst-big5") |
248 |
(load "subst-jis"))) ; jis covers as much as big5, gb2312 |
(load "subst-jis"))) ; jis covers as much as big5, gb2312 |
249 |
(let ((table (make-char-table 'translation-table))) |
(define-translation-hash-table 'utf-subst-table-for-decode |
250 |
(maphash (lambda (k v) |
ucs-unicode-to-mule-cjk) |
251 |
(aset table k t)) |
(define-translation-hash-table 'utf-subst-table-for-encode |
252 |
ucs-mule-cjk-to-unicode) |
ucs-mule-cjk-to-unicode) |
253 |
(define-translation-hash-table 'utf-subst-table-for-decode |
(set-char-table-extra-slot (get 'utf-translation-table-for-encode |
254 |
ucs-unicode-to-mule-cjk) |
'translation-table) |
255 |
(define-translation-hash-table 'utf-subst-table-for-encode |
1 ucs-mule-cjk-to-unicode)) |
|
ucs-mule-cjk-to-unicode))) |
|
256 |
(define-translation-hash-table 'utf-subst-table-for-decode |
(define-translation-hash-table 'utf-subst-table-for-decode |
257 |
(make-hash-table :test 'eq)) |
(make-hash-table :test 'eq)) |
258 |
(define-translation-hash-table 'utf-subst-table-for-encode |
(define-translation-hash-table 'utf-subst-table-for-encode |
259 |
(make-hash-table :test 'eq)))) |
(make-hash-table :test 'eq)) |
260 |
|
(set-char-table-extra-slot (get 'utf-translation-table-for-encode |
261 |
|
'translation-table) |
262 |
|
1 nil))) |
263 |
|
|
264 |
(define-ccl-program ccl-decode-mule-utf-8 |
(define-ccl-program ccl-decode-mule-utf-8 |
265 |
;; |
;; |
802 |
(valid-codes (0 . 255)) |
(valid-codes (0 . 255)) |
803 |
;; (pre-write-conversion . utf-8-pre-write-conversion) |
;; (pre-write-conversion . utf-8-pre-write-conversion) |
804 |
(post-read-conversion . utf-8-post-read-conversion) |
(post-read-conversion . utf-8-post-read-conversion) |
805 |
|
(translation-table-for-encode . utf-translation-table-for-encode) |
806 |
(dependency unify-8859-on-encoding-mode |
(dependency unify-8859-on-encoding-mode |
807 |
unify-8859-on-decoding-mode |
unify-8859-on-decoding-mode |
808 |
utf-fragment-on-decoding |
utf-fragment-on-decoding |