(non-885 char sets handling): Don't call coding-system-put or

register-char-codings.

diff --git a/lisp/international/ucs-tables.el b/lisp/international/ucs-tables.el
index ccf525ff61bcf79de97e374c92362ea73de3cf4f..90daf055c08613980b47ad40950cf1a1fb7f222e 100644 (file)
--- a/lisp/international/ucs-tables.el
+++ b/lisp/international/ucs-tables.el
@@ -2443,11 +2443,7 @@ Interactively, prompts for a hex string giving the code."
               (coding-system-put cs 'translation-table-for-input cs)))))
     (optimize-char-table ucs-mule-to-mule-unicode)
     (dolist (c safe-charsets)
-      (aset table (make-char c) t))
-    (coding-system-put 'mule-utf-8 'safe-charsets
-                      (append (coding-system-get 'mule-utf-8 'safe-charsets)
-                              safe-charsets))
-    (register-char-codings 'mule-utf-8 table)))
+      (aset table (make-char c) t))))
 
 (defvar translation-table-for-input (make-translation-table))