Mercurial > emacs
changeset 50766:fc9cb527333d
(utf-translate-cjk-mode): Update the
second extra slot of the translation table
utf-translation-table-for-encode.
(mule-utf-8): Set the property translation-table-for-encode.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 01 May 2003 04:39:07 +0000 |
| parents | 43076e9d9aaa |
| children | 5e248d2a95e7 |
| files | lisp/international/utf-8.el |
| diffstat | 1 files changed, 12 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/utf-8.el Thu May 01 04:34:57 2003 +0000 +++ b/lisp/international/utf-8.el Thu May 01 04:39:07 2003 +0000 @@ -246,18 +246,20 @@ (load "subst-gb2312") (load "subst-big5") (load "subst-jis"))) ; jis covers as much as big5, gb2312 - (let ((table (make-char-table 'translation-table))) - (maphash (lambda (k v) - (aset table k t)) - ucs-mule-cjk-to-unicode) - (define-translation-hash-table 'utf-subst-table-for-decode - ucs-unicode-to-mule-cjk) - (define-translation-hash-table 'utf-subst-table-for-encode - ucs-mule-cjk-to-unicode))) + (define-translation-hash-table 'utf-subst-table-for-decode + ucs-unicode-to-mule-cjk) + (define-translation-hash-table 'utf-subst-table-for-encode + ucs-mule-cjk-to-unicode) + (set-char-table-extra-slot (get 'utf-translation-table-for-encode + 'translation-table) + 1 ucs-mule-cjk-to-unicode)) (define-translation-hash-table 'utf-subst-table-for-decode (make-hash-table :test 'eq)) (define-translation-hash-table 'utf-subst-table-for-encode - (make-hash-table :test 'eq)))) + (make-hash-table :test 'eq)) + (set-char-table-extra-slot (get 'utf-translation-table-for-encode + 'translation-table) + 1 nil))) (define-ccl-program ccl-decode-mule-utf-8 ;; @@ -800,6 +802,7 @@ (valid-codes (0 . 255)) ;; (pre-write-conversion . utf-8-pre-write-conversion) (post-read-conversion . utf-8-post-read-conversion) + (translation-table-for-encode . utf-translation-table-for-encode) (dependency unify-8859-on-encoding-mode unify-8859-on-decoding-mode utf-fragment-on-decoding