From: Dave Love <fx@gnu.org>
Date: Thu, 5 Dec 2002 16:56:21 +0000 (+0000)
Subject: Update safe-chars of mule-utf-8,
X-Git-Tag: ttn-vms-21-2-B4~12146
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=903307483a406bed559119d99c7926093b5e5ba7;p=emacs.git

Update safe-chars of mule-utf-8,
mule-utf-16-le, mule-utf-16-be.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf64ad73ada..eaaab0ce0f2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-12-05  Dave Love  <fx@gnu.org>
+
+	* international/utf-8-subst.el: Update safe-chars of mule-utf-8,
+	mule-utf-16-le, mule-utf-16-be.
+
 2002-12-05  Richard M. Stallman  <rms@gnu.org>
 
 	* textmodes/outline.el (outline-mode): Doc fix.
diff --git a/lisp/international/utf-8-subst.el b/lisp/international/utf-8-subst.el
index 6049e6a09fb..8e5b4affe8c 100644
--- a/lisp/international/utf-8-subst.el
+++ b/lisp/international/utf-8-subst.el
@@ -20144,5 +20144,13 @@
    (#x9F9D ?龝)
    (#x9FA0 ?龠))) 
 
+(let ((tab (make-char-table 'translation-table)))
+  (maphash (lambda (k v)
+	     (aset tab k v))
+	   ucs-mule-cjk-to-unicode)
+  (register-char-codings 'mule-utf-8 tab)
+  (register-char-codings 'mule-utf-16-be tab)
+  (register-char-codings 'mule-utf-16-le tab))
+
 (provide 'utf-8-subst)
 ;;; utf-8-subst.el ends here