# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1051763947 0
# Node ID fc9cb527333da2fb36476217341751e5eb675af6
# Parent  43076e9d9aaa1a6b3712e1c3c5eb5a58caf05174
(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.

diff -r 43076e9d9aaa -r fc9cb527333d lisp/international/utf-8.el
--- 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