From 6c932ec30b87c0ffd1f2347411661d417a5aa155 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 5 Sep 2002 22:49:23 +0000 Subject: [PATCH] (non-885 char sets handling): Don't call coding-system-put or register-char-codings. --- lisp/international/ucs-tables.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) 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)) -- 2.39.2