Mercurial > emacs

changeset 48680:467a7f8b57f4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update safe-chars of mule-utf-8, mule-utf-16-le, mule-utf-16-be.
author Dave Love <fx@gnu.org>
date Thu, 05 Dec 2002 16:55:25 +0000
parents 672c6eac16e7
children bc8dd5e93ecd
files lisp/international/utf-8-subst.el
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/utf-8-subst.el	Thu Dec 05 16:51:56 2002 +0000
+++ b/lisp/international/utf-8-subst.el	Thu Dec 05 16:55:25 2002 +0000
@@ -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