Mercurial > emacs
comparison lisp/language/japanese.el @ 89791:3e22bfaa44de
(japanese-ucs-cp932-to-jis-map): Renamed
from japanese-ucs-cp932-map.
(japanese-ucs-jis-to-cp932-map): Renamed from
japanese-ucs-jis-map.
(japanese-ucs-glibc-map): Delete this tranlastion table.
(japanese-ucs-glibc-to-jis-map): New tranlastion table.
(japanese-ucs-jis-to-glibc-map): New tranlastion table.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 02 Feb 2004 11:43:19 +0000 |
parents | c0e5e49686a6 |
children | 0a96859927ce |
comparison
equal
deleted
inserted
replaced
89790:27a1ad5d169f | 89791:3e22bfaa44de |
---|---|
68 latin-iso8859-1 greek-iso8859-7) | 68 latin-iso8859-1 greek-iso8859-7) |
69 :mime-charset 'iso-2022-jp-2) | 69 :mime-charset 'iso-2022-jp-2) |
70 | 70 |
71 (let ((map ; JIS vs CP932 | 71 (let ((map ; JIS vs CP932 |
72 '((#x301C . #xFF5E) ; WAVE DASH FULLWIDTH TILDE | 72 '((#x301C . #xFF5E) ; WAVE DASH FULLWIDTH TILDE |
73 (#x2014 . #x2015) ; EM DASH HORIZONTAL BAR | |
73 (#x2016 . #x2225) ; DOUBLE VERTICAL LINE PARALLEL TO | 74 (#x2016 . #x2225) ; DOUBLE VERTICAL LINE PARALLEL TO |
74 (#x2212 . #xFF0D) ; MINUS SIGN FULLWIDTH HYPHEN-MINUS | 75 (#x2212 . #xFF0D) ; MINUS SIGN FULLWIDTH HYPHEN-MINUS |
75 (#x00A2 . #xFFE0) ; CENT SIGN FULLWIDTH CENT SIGN | 76 (#x00A2 . #xFFE0) ; CENT SIGN FULLWIDTH CENT SIGN |
76 (#x00A3 . #xFFE1) ; POUND SIGN FULLWIDTH POUND SIGN | 77 (#x00A3 . #xFFE1) ; POUND SIGN FULLWIDTH POUND SIGN |
77 (#x00AC . #xFFE2) ; NOT SIGN FULLWIDTH NOT SIGN | 78 (#x00AC . #xFFE2) ; NOT SIGN FULLWIDTH NOT SIGN |
78 (#x00A6 . #xFFE4) ; BROKEN LINE FULLWIDTH BROKEN LINE | 79 (#x00A6 . #xFFE4) ; BROKEN LINE FULLWIDTH BROKEN LINE |
79 ))) | 80 ))) |
80 (define-translation-table 'japanese-ucs-cp932-map map) | 81 (define-translation-table 'japanese-ucs-cp932-to-jis-map map) |
81 (mapc #'(lambda (x) (let ((tmp (car x))) | 82 (mapc #'(lambda (x) (let ((tmp (car x))) |
82 (setcar x (cdr x)) (setcdr x tmp))) | 83 (setcar x (cdr x)) (setcdr x tmp))) |
83 map) | 84 map) |
84 (define-translation-table 'japanese-ucs-jis-map map) | 85 (define-translation-table 'japanese-ucs-jis-to-cp932-map map)) |
85 (define-translation-table 'japanese-ucs-glibc-map map)) | |
86 | 86 |
87 ;; U+2014 (EM DASH) vs U+2015 (HORIZONTAL BAR) | 87 ;; U+2014 (EM DASH) vs U+2015 (HORIZONTAL BAR) |
88 (aset (get 'japanese-ucs-cp932-map 'translation-table) #x2014 #x2015) | 88 (define-translation-table 'japanese-ucs-glibc-to-jis-map '((#x2015 . #x2014))) |
89 (aset (get 'japanese-ucs-jis-map 'translation-table) #x2015 #x2014) | 89 (define-translation-table 'japanese-ucs-jis-to-glibc-map '((#x2014 . #x2015))) |
90 (aset (get 'japanese-ucs-glibc-map 'translation-table) #x2014 #x2015) | |
91 | 90 |
92 (define-coding-system 'japanese-shift-jis | 91 (define-coding-system 'japanese-shift-jis |
93 "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)" | 92 "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)" |
94 :coding-type 'shift-jis | 93 :coding-type 'shift-jis |
95 :mnemonic ?S | 94 :mnemonic ?S |