diff options
author | Dave Love <[email protected]> | 2002-12-05 16:56:21 +0000 |
---|---|---|
committer | Dave Love <[email protected]> | 2002-12-05 16:56:21 +0000 |
commit | 903307483a406bed559119d99c7926093b5e5ba7 (patch) | |
tree | b0a3af75eb899dfabdd70c57c64974bd103ab9ed | |
parent | 9f6991fd86e5ab434a99e87f8b40b35de776a313 (diff) |
Update safe-chars of mule-utf-8,
mule-utf-16-le, mule-utf-16-be.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/international/utf-8-subst.el | 8 |
2 files changed, 13 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cf64ad73ad..eaaab0ce0f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-12-05 Dave Love <[email protected]> + + * 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 <[email protected]> * textmodes/outline.el (outline-mode): Doc fix. diff --git a/lisp/international/utf-8-subst.el b/lisp/international/utf-8-subst.el index 6049e6a09f..8e5b4affe8 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 |