[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/utf-8.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/utf-8.el |
Date: |
Thu, 01 May 2003 00:39:07 -0400 |
Index: emacs/lisp/international/utf-8.el
diff -c emacs/lisp/international/utf-8.el:1.29
emacs/lisp/international/utf-8.el:1.30
*** emacs/lisp/international/utf-8.el:1.29 Fri Apr 11 07:10:48 2003
--- emacs/lisp/international/utf-8.el Thu May 1 00:39:07 2003
***************
*** 246,263 ****
(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
(make-hash-table :test 'eq))
(define-translation-hash-table 'utf-subst-table-for-encode
! (make-hash-table :test 'eq))))
(define-ccl-program ccl-decode-mule-utf-8
;;
--- 246,265 ----
(load "subst-gb2312")
(load "subst-big5")
(load "subst-jis"))) ; jis covers as much as big5, gb2312
! (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))
! (set-char-table-extra-slot (get 'utf-translation-table-for-encode
! 'translation-table)
! 1 nil)))
(define-ccl-program ccl-decode-mule-utf-8
;;
***************
*** 800,805 ****
--- 802,808 ----
(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/international/utf-8.el,
Kenichi Handa <=