# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1047960408 0
# Node ID 65bb5afb37ef387b7ec16efb7cfb6d1e36e598fb
# Parent  61194aef8668a1e9e24fbec6e57ed1f4c250eda9
(utf-fragment-on-decoding): Don't call
register-char-codings.
(utf-fragment-on-decoding): Don't update char-coding-system-table.
(utf-translate-cjk): Don't call register-char-codings nor
optimize-char-coding-system-table.  Don't update
char-coding-system-table.

diff -r 61194aef8668 -r 65bb5afb37ef lisp/international/utf-8.el
--- a/lisp/international/utf-8.el	Mon Mar 17 23:17:32 2003 +0000
+++ b/lisp/international/utf-8.el	Tue Mar 18 04:06:48 2003 +0000
@@ -48,8 +48,7 @@
 ;;
 ;; Characters from other character sets can be encoded with mule-utf-8
 ;; by populating the translation table
-;; `utf-translation-table-for-encode' and registering the translation
-;; with `register-char-codings'.  Hash tables
+;; `utf-translation-table-for-encode'.  Hash tables
 ;; `utf-subst-table-for-decode' and `utf-subst-table-for-encode' are
 ;; used to support encoding and decoding of about a quarter of the CJK
 ;; space between U+3400 and U+DFFF.
@@ -177,9 +176,7 @@
 				'translation-table)
 			   ucs-mule-to-mule-unicode)
 		 (define-translation-table 'utf-translation-table-for-encode
-		   utf-defragmentation-table)
-		 (dolist (coding '(mule-utf-8 mule-utf-16-be mule-utf-16-le))
-		   (register-char-codings coding utf-defragmentation-table))))
+		   utf-defragmentation-table)))
 	   (define-translation-table 'utf-translation-table-for-decode)
 	   ;; When unify-8859-on-encoding-mode is off, be sure to make
 	   ;; mule-utf-* disabled for characters in
@@ -187,17 +184,7 @@
 	   (unless (eq (get 'utf-translation-table-for-encode
 			    'translation-table)
 		       ucs-mule-to-mule-unicode)
-	     (define-translation-table 'utf-translation-table-for-encode)
-	     (map-char-table
-	      (lambda (key val)
-		(if (and (>= key 128) val)
-		    (aset char-coding-system-table key
-			  (remq 'mule-utf-8
-				(remq 'mule-utf-16-le
-				      (remq 'mule-utf-16-be
-					    (aref char-coding-system-table
-						  key)))))))
-	      utf-defragmentation-table)))
+	     (define-translation-table 'utf-translation-table-for-encode)))
 	 (set-default s v))
   :version "21.4"
   :type 'boolean
@@ -258,26 +245,14 @@
 		 (maphash (lambda (k v)
 			    (aset table k t))
 			  ucs-mule-cjk-to-unicode)
-		 (register-char-codings 'mule-utf-8 table)
-		 (register-char-codings 'mule-utf-16-le table)
-		 (register-char-codings 'mule-utf-16-be table))
 	       (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))
-	   (map-char-table
-	    (lambda (k v)
-	      (if (gethash k ucs-mule-cjk-to-unicode)
-		  (aset char-coding-system-table k
-			(remq 'mule-utf-8
-			      (remq 'mule-utf-16-le
-				    (remq 'mule-utf-16-be v))))))
-	    char-coding-system-table)
 	   (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)))
-	 (optimize-char-coding-system-table)
+	     (make-hash-table :test 'eq))))
 	 (set-default s v))
   :version "21.4"
   :type 'boolean