[Emacs-diffs] Changes to emacs/lisp/international/utf-8.el

[Kenichi Handa]

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