Mercurial > emacs
comparison lisp/international/utf-8-subst.el @ 48695:888a5e7f884c
Revert last change.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 06 Dec 2002 19:27:12 +0000 |
| parents | 467a7f8b57f4 |
| children |
comparison
equal
deleted
inserted
replaced
| 48694:9052f7b28447 | 48695:888a5e7f884c |
|---|---|
| 20142 (#x9F95 ?龕) | 20142 (#x9F95 ?龕) |
| 20143 (#x9F9C ?龜) | 20143 (#x9F9C ?龜) |
| 20144 (#x9F9D ?龝) | 20144 (#x9F9D ?龝) |
| 20145 (#x9FA0 ?龠))) | 20145 (#x9FA0 ?龠))) |
| 20146 | 20146 |
| 20147 (let ((tab (make-char-table 'translation-table))) | |
| 20148 (maphash (lambda (k v) | |
| 20149 (aset tab k v)) | |
| 20150 ucs-mule-cjk-to-unicode) | |
| 20151 (register-char-codings 'mule-utf-8 tab) | |
| 20152 (register-char-codings 'mule-utf-16-be tab) | |
| 20153 (register-char-codings 'mule-utf-16-le tab)) | |
| 20154 | |
| 20155 (provide 'utf-8-subst) | 20147 (provide 'utf-8-subst) |
| 20156 ;;; utf-8-subst.el ends here | 20148 ;;; utf-8-subst.el ends here |