diff options
| author | Kenichi Handa <handa@m17n.org> | 2004-03-11 02:12:20 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2004-03-11 02:12:20 +0000 |
| commit | 0c4fbd05ec3bb7277cd99b0761191bbafe5e2d4d (patch) | |
| tree | 5d4124083a70a54807a284cb94a827c75cdd746b /lisp/language/japanese.el | |
| parent | 4d55aab3037239c0dfedfdf041b685ca24ce846e (diff) | |
| download | emacs-0c4fbd05ec3bb7277cd99b0761191bbafe5e2d4d.tar.gz | |
(jisx0213-to-unicode, unicode-to-jisx0213):
New translation tables.
Diffstat (limited to 'lisp/language/japanese.el')
| -rw-r--r-- | lisp/language/japanese.el | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/lisp/language/japanese.el b/lisp/language/japanese.el index a6bedbd82cd..0785ce69661 100644 --- a/lisp/language/japanese.el +++ b/lisp/language/japanese.el @@ -207,6 +207,41 @@ eucJP-ms is defined in <http://www.opengroup.or.jp/jvc/cde/appendix.html>." (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B") (documentation . t))) +(let ((map + ;; JISX0213-1 vs Unicode + '((#x2477 . [#x304B #x309A]) + (#x2478 . [#x304D #x309A]) + (#x2479 . [#x304F #x309A]) + (#x247a . [#x3051 #x309A]) + (#x247b . [#x3053 #x309A]) + (#x2577 . [#x30AB #x309A]) + (#x2578 . [#x30AD #x309A]) + (#x2579 . [#x30AF #x309A]) + (#x257a . [#x30B1 #x309A]) + (#x257b . [#x30B3 #x309A]) + (#x257c . [#x30BB #x309A]) + (#x257d . [#x30C4 #x309A]) + (#x257e . [#x30C8 #x309A]) + (#x2678 . [#x31F7 #x309A]) + (#x2b44 . [#x00E6 #x0300]) + (#x2b48 . [#x0254 #x0300]) + (#x2b49 . [#x0254 #x0301]) + (#x2b4a . [#x028C #x0300]) + (#x2b4b . [#x028C #x0301]) + (#x2b4c . [#x0259 #x0300]) + (#x2b4d . [#x0259 #x0301]) + (#x2b4e . [#x025A #x0300]) + (#x2b4f . [#x025A #x0301]) + (#x2b65 . [#x02E9 #x02E5]) + (#x2b66 . [#x02E5 #x02E9]))) + table) + (dolist (elt map) + (setcar elt (decode-char 'japanese-jisx0213-1 (car elt)))) + (setq table (make-translation-table-from-alist map)) + (define-translation-table 'jisx0213-to-unicode table) + (define-translation-table 'unicode-to-jisx0213 + (char-table-extra-slot table 0))) + (provide 'japanese) ;;; japanese.el ends here |