From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 5 Sep 2002 22:49:23 +0000 (+0000)
Subject: (non-885 char sets handling): Don't call coding-system-put or
X-Git-Tag: emacs-pretest-21.2.91~74
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6c932ec30b87c0ffd1f2347411661d417a5aa155;p=emacs.git

(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 ccf525ff61b..90daf055c08 100644
--- 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))