Update safe-chars of mule-utf-8,

mule-utf-16-le, mule-utf-16-be.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf64ad73ada2de2e248acd687c8b87d238676683..eaaab0ce0f2ae78e64e6c9c6d5e4594e8d2c81d7 100644 (file)
--- 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 6049e6a09fbf452e39b3aa2c3a2baa75471effc2..8e5b4affe8c5b7ce3063f0b1264c8e212e4850fd 100644 (file)
--- a/lisp/international/utf-8-subst.el
+++ b/lisp/international/utf-8-subst.el
@@ -20144,5 +20144,13 @@
    (#x9F9D ?\e$BcT\e(B)
    (#x9FA0 ?\e$Bs~\e(B))) 
 
+(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