Mercurial > emacs

comparison lisp/language/japanese.el @ 89794:0a96859927ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(iso-2022-jp): Exclude japanese-jisx0212. (japanese-ucs-cp932-to-jis-map): Fix previous change. (japanese-ucs-jis-to-cp932-map): Likewise. (iso-2022-jp-2004, euc-jis-2004, japanese-shift-jis-2004): New coding systems. (iso-2022-jp-3, euc-jisx0213, shift_jis-2004): New coding system aliases. ("Japanese"): Add new charsets and coding system.s
author Kenichi Handa <handa@m17n.org>
date Tue, 03 Feb 2004 04:39:16 +0000
parents 3e22bfaa44de
children 94fdb409a40f
comparison
equal deleted inserted replaced
89793:cdb516af172d 89794:0a96859927ce
39 (define-coding-system 'iso-2022-jp 39 (define-coding-system 'iso-2022-jp
40 "ISO 2022 based 7bit encoding for Japanese (MIME:ISO-2022-JP)." 40 "ISO 2022 based 7bit encoding for Japanese (MIME:ISO-2022-JP)."
41 :coding-type 'iso-2022 41 :coding-type 'iso-2022
42 :mnemonic ?J 42 :mnemonic ?J
43 :designation [(ascii japanese-jisx0208-1978 japanese-jisx0208 43 :designation [(ascii japanese-jisx0208-1978 japanese-jisx0208
44 latin-jisx0201 japanese-jisx0212) 44 latin-jisx0201)
45 nil nil nil] 45 nil nil nil]
46 :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation) 46 :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation)
47 :charset-list '(ascii japanese-jisx0208 japanese-jisx0212 47 :charset-list '(ascii japanese-jisx0208
48 japanese-jisx0208-1978 latin-jisx0201) 48 japanese-jisx0208-1978 latin-jisx0201)
49 :mime-charset 'iso-2022-jp) 49 :mime-charset 'iso-2022-jp)
50 50
51 (define-coding-system-alias 'junet 'iso-2022-jp) 51 (define-coding-system-alias 'junet 'iso-2022-jp)
52 52
76 (#x00A2 . #xFFE0) ; CENT SIGN FULLWIDTH CENT SIGN 76 (#x00A2 . #xFFE0) ; CENT SIGN FULLWIDTH CENT SIGN
77 (#x00A3 . #xFFE1) ; POUND SIGN FULLWIDTH POUND SIGN 77 (#x00A3 . #xFFE1) ; POUND SIGN FULLWIDTH POUND SIGN
78 (#x00AC . #xFFE2) ; NOT SIGN FULLWIDTH NOT SIGN 78 (#x00AC . #xFFE2) ; NOT SIGN FULLWIDTH NOT SIGN
79 (#x00A6 . #xFFE4) ; BROKEN LINE FULLWIDTH BROKEN LINE 79 (#x00A6 . #xFFE4) ; BROKEN LINE FULLWIDTH BROKEN LINE
80 ))) 80 )))
81 (define-translation-table 'japanese-ucs-cp932-to-jis-map map) 81 (define-translation-table 'japanese-ucs-jis-to-cp932-map map)
82 (mapc #'(lambda (x) (let ((tmp (car x))) 82 (mapc #'(lambda (x) (let ((tmp (car x)))
83 (setcar x (cdr x)) (setcdr x tmp))) 83 (setcar x (cdr x)) (setcdr x tmp)))
84 map) 84 map)
85 (define-translation-table 'japanese-ucs-jis-to-cp932-map map)) 85 (define-translation-table 'japanese-ucs-cp932-to-jis-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 (define-translation-table 'japanese-ucs-glibc-to-jis-map '((#x2015 . #x2014))) 88 (define-translation-table 'japanese-ucs-glibc-to-jis-map '((#x2015 . #x2014)))
89 (define-translation-table 'japanese-ucs-jis-to-glibc-map '((#x2014 . #x2015))) 89 (define-translation-table 'japanese-ucs-jis-to-glibc-map '((#x2014 . #x2015)))
90 90
146 :charset-list '(ascii latin-jisx0201 japanese-jisx0208 146 :charset-list '(ascii latin-jisx0201 japanese-jisx0208
147 katakana-jisx0201 japanese-jisx0212) 147 katakana-jisx0201 japanese-jisx0212)
148 :decode-translation-table 'eucjp-ms-decode 148 :decode-translation-table 'eucjp-ms-decode
149 :encode-translation-table 'eucjp-ms-encode) 149 :encode-translation-table 'eucjp-ms-encode)
150 150
151 (define-coding-system 'iso-2022-jp-2004
152 "ISO 2022 based 7bit encoding for JIS X 0213:2004 (MIME:ISO-2022-JP-2004)."
153 :coding-type 'iso-2022
154 :mnemonic ?J
155 :designation [(ascii japanese-jisx0208 japanese-jisx0213.2004-1
156 japanese-jisx0213-1 japanese-jisx0213-2)
157 nil nil nil]
158 :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation)
159 ;; init-at-bol)
160 :charset-list '(ascii japanese-jisx0208 japanese-jisx0213.2004-1
161 japanese-jisx0213-1 japanese-jisx0213-2)
162 :mime-charset 'iso-2022-jp-2004)
163
164 (define-coding-system-alias 'iso-2022-jp-3 'iso-2022-jp-2004)
165
166 (define-coding-system 'euc-jis-2004
167 "ISO 2022 based EUC encoding for JIS X 0213 (MIME:EUC-JIS-2004)."
168 :coding-type 'iso-2022
169 :mnemonic ?E
170 :designation [ascii japanese-jisx0213.2004-1 katakana-jisx0201
171 japanese-jisx0213-2]
172 :flags '(short ascii-at-eol ascii-at-cntl single-shift)
173 :charset-list '(ascii latin-jisx0201 japanese-jisx0213.2004-1
174 japanese-jisx0213-1 katakana-jisx0201
175 japanese-jisx0213-2)
176 :mime-charset 'euc-jis-2004)
177
178 (define-coding-system-alias 'euc-jisx0213 'euc-jis-2004)
179
180 (define-coding-system 'japanese-shift-jis-2004
181 "Shift_JIS 8-bit encodinf for Japanese (MIME:SHIFT_JIS-2004)"
182 :coding-type 'shift-jis
183 :mnemonic ?S
184 :charset-list '(ascii katakana-jisx0201
185 japanese-jisx0213.2004-1 japanese-jisx0213-2))
186
187 (define-coding-system-alias 'shift_jis-2004 'japanese-shift-jis-2004)
188
151 (set-language-info-alist 189 (set-language-info-alist
152 "Japanese" '((setup-function . setup-japanese-environment-internal) 190 "Japanese" '((setup-function . setup-japanese-environment-internal)
153 (tutorial . "TUTORIAL.ja") 191 (tutorial . "TUTORIAL.ja")
154 (charset japanese-jisx0208 japanese-jisx0208-1978 192 (charset japanese-jisx0208 japanese-jisx0208-1978
155 japanese-jisx0212 latin-jisx0201 katakana-jisx0201 193 japanese-jisx0212 latin-jisx0201 katakana-jisx0201
156 japanese-jisx0213-1 japanese-jisx0213-2) 194 japanese-jisx0213.2004-1 japanese-jisx0213-1
195 japanese-jisx0213-2)
157 (coding-system iso-2022-jp japanese-iso-8bit 196 (coding-system iso-2022-jp japanese-iso-8bit
158 japanese-shift-jis japanese-iso-7bit-1978-irv) 197 japanese-shift-jis japanese-iso-7bit-1978-irv
198 iso-2022-jp-2004 japanese-shift-jis-2004
199 euc-jis-2004)
159 (coding-priority iso-2022-jp japanese-iso-8bit 200 (coding-priority iso-2022-jp japanese-iso-8bit
160 japanese-shift-jis iso-2022-jp-2) 201 japanese-shift-jis
202 iso-2022-jp-2004 euc-jis-2004
203 japanese-shift-jis-2004
204 iso-2022-jp-2)
161 (input-method . "japanese") 205 (input-method . "japanese")
162 (features japan-util) 206 (features japan-util)
163 (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B") 207 (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B")
164 (documentation . t))) 208 (documentation . t)))
165 209