Mercurial > hg > xemacs-beta

comparison lisp/mule/japanese.el @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents 74fd4e045ea6
children 95016f13131a
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
1 ;;; japanese.el --- Japanese support -*- coding: iso-2022-7bit; -*- 1 ;;; japanese.el --- Japanese support
2 2
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation. 4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 1997 MORIOKA Tomohiko 5 ;; Copyright (C) 1997 MORIOKA Tomohiko
6 6
142 142
143 ;; (make-coding-system 143 ;; (make-coding-system
144 ;; 'iso-2022-jp 2 ?J 144 ;; 'iso-2022-jp 2 ?J
145 ;; "ISO 2022 based 7bit encoding for Japanese (MIME:ISO-2022-JP)" 145 ;; "ISO 2022 based 7bit encoding for Japanese (MIME:ISO-2022-JP)"
146 ;; '((ascii japanese-jisx0208-1978 japanese-jisx0208 146 ;; '((ascii japanese-jisx0208-1978 japanese-jisx0208
147 ;; latin-jisx0201 japanese-jisx0212 katakana-jisx0201) nil nil nil 147 ;; latin-jisx0201 japanese-jisx0212 katakana-jisx0201 t) nil nil nil
148 ;; short ascii-eol ascii-cntl seven) 148 ;; short ascii-eol ascii-cntl seven))
149 ;; '((safe-charsets ascii japanese-jisx0208-1978 japanese-jisx0208 149
150 ;; latin-jisx0201 japanese-jisx0212 katakana-jisx0201) 150 ;; (define-coding-system-alias 'junet 'iso-2022-jp)
151 ;; (mime-charset . iso-2022-jp)))
152 151
153 (make-coding-system 152 (make-coding-system
154 'iso-2022-jp 'iso2022 153 'iso-2022-jp 'iso2022
155 "Coding-system used for communication with mail and news in Japan." 154 "Coding-system used for communication with mail and news in Japan."
156 '(charset-g0 ascii 155 '(charset-g0 ascii
159 input-charset-conversion ((latin-jisx0201 ascii) 158 input-charset-conversion ((latin-jisx0201 ascii)
160 (japanese-jisx0208-1978 japanese-jisx0208)) 159 (japanese-jisx0208-1978 japanese-jisx0208))
161 mnemonic "MULE/7bit" 160 mnemonic "MULE/7bit"
162 )) 161 ))
163 162
164 (define-coding-system-alias 'junet 'iso-2022-jp) 163 (copy-coding-system 'iso-2022-jp 'junet)
165 164
166 ;; (make-coding-system 165 ;; (make-coding-system
167 ;; 'iso-2022-jp-2 2 ?J 166 ;; 'shift_jis 1 ?S
168 ;; "ISO 2022 based 7bit encoding for CJK, Latin-1, and Greek (MIME:ISO-2022-JP-2)" 167 ;; "Coding-system of Shift-JIS used in Japan." t)
169 ;; '((ascii japanese-jisx0208-1978 japanese-jisx0208
170 ;; latin-jisx0201 japanese-jisx0212 katakana-jisx0201
171 ;; chinese-gb2312 korean-ksc5601) nil
172 ;; (nil latin-iso8859-1 greek-iso8859-7) nil
173 ;; short ascii-eol ascii-cntl seven nil single-shift)
174 ;; '((safe-charsets ascii japanese-jisx0208-1978 japanese-jisx0208
175 ;; latin-jisx0201 japanese-jisx0212 katakana-jisx0201
176 ;; chinese-gb2312 korean-ksc5601
177 ;; latin-iso8859-1 greek-iso8859-7)
178 ;; (mime-charset . iso-2022-jp-2)))
179
180 ;; (make-coding-system
181 ;; 'japanese-shift-jis 1 ?S
182 ;; "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)"
183 ;; nil
184 ;; '((safe-charsets ascii japanese-jisx0208 japanese-jisx0208-1978
185 ;; latin-jisx0201 katakana-jisx0201)
186 ;; (mime-charset . shift_jis)
187 ;; (charset-origin-alist (japanese-jisx0208 "SJIS" encode-sjis-char)
188 ;; (katakana-jisx0201 "SJIS" encode-sjis-char))))
189 168
190 (make-coding-system 169 (make-coding-system
191 'shift_jis 'shift-jis 170 'shift_jis 'shift-jis
192 "Coding-system of Shift-JIS used in Japan." 171 "Coding-system of Shift-JIS used in Japan."
193 '(mnemonic "Ja/SJIS")) 172 '(mnemonic "Ja/SJIS"))
194 173
195 ;; (define-coding-system-alias 'shift_jis 'japanese-shift-jis) 174 ;;(define-coding-system-alias 'shift_jis 'sjis)
196 ;; (define-coding-system-alias 'sjis 'japanese-shift-jis) 175
197 176 (copy-coding-system 'shift_jis 'sjis)
198 ;; (make-coding-system 177
199 ;; 'japanese-iso-7bit-1978-irv 2 ?j 178 ;; (make-coding-system
200 ;; "ISO 2022 based 7-bit encoding for Japanese JISX0208-1978 and JISX0201-Roman" 179 ;; 'iso-2022-jp-1978-irv 2 ?J
201 ;; '((ascii japanese-jisx0208-1978 japanese-jisx0208 180 ;; "Coding-system used for old jis terminal."
202 ;; latin-jisx0201 japanese-jisx0212 katakana-jisx0201 t) nil nil nil 181 ;; '((ascii t) nil nil nil
203 ;; short ascii-eol ascii-cntl seven nil nil use-roman use-oldjis) 182 ;; short ascii-eol ascii-cntl seven nil nil use-roman use-oldjis))
204 ;; '(ascii japanese-jisx0208-1978 japanese-jisx0208 latin-jisx0201))
205 183
206 (make-coding-system 184 (make-coding-system
207 'iso-2022-jp-1978-irv 'iso2022 185 'iso-2022-jp-1978-irv 'iso2022
208 "Coding-system used for old JIS terminal." 186 "Coding-system used for old JIS terminal."
209 '(charset-g0 ascii 187 '(charset-g0 ascii
212 output-charset-conversion ((ascii latin-jisx0201) 190 output-charset-conversion ((ascii latin-jisx0201)
213 (japanese-jisx0208 japanese-jisx0208-1978)) 191 (japanese-jisx0208 japanese-jisx0208-1978))
214 mnemonic "Ja-78/7bit" 192 mnemonic "Ja-78/7bit"
215 )) 193 ))
216 194
217 ;; (define-coding-system-alias 'iso-2022-jp-1978-irv 'japanese-iso-7bit-1978-irv) 195 ;;(define-coding-system-alias 'iso-2022-jp-1978-irv 'old-jis)
218 ;; (define-coding-system-alias 'old-jis 'japanese-iso-7bit-1978-irv) 196
219 197 (copy-coding-system 'iso-2022-jp-1978-irv 'old-jis)
220 (define-coding-system-alias 'old-jis 'iso-2022-jp-1978-irv) 198
221 199 ;; (make-coding-system
222 ;; (make-coding-system 200 ;; 'euc-japan-1990 2 ?E
223 ;; 'japanese-iso-8bit 2 ?E 201 ;; "Coding-system of Japanese EUC (Extended Unix Code)."
224 ;; "ISO 2022 based EUC encoding for Japanese (MIME:EUC-JP)"
225 ;; '(ascii japanese-jisx0208 katakana-jisx0201 japanese-jisx0212 202 ;; '(ascii japanese-jisx0208 katakana-jisx0201 japanese-jisx0212
226 ;; short ascii-eol ascii-cntl nil nil single-shift) 203 ;; short ascii-eol ascii-cntl nil nil single-shift))
227 ;; '((safe-charsets ascii latin-jisx0201 japanese-jisx0208 japanese-jisx0208-1978
228 ;; katakana-jisx0201 japanese-jisx0212)
229 ;; (mime-charset . euc-jp)))
230 204
231 (make-coding-system 205 (make-coding-system
232 'euc-jp 'iso2022 206 'euc-jp 'iso2022
233 "Coding-system of Japanese EUC (Extended Unix Code)." 207 "Coding-system of Japanese EUC (Extended Unix Code)."
234 '(charset-g0 ascii 208 '(charset-g0 ascii
237 charset-g3 japanese-jisx0212 211 charset-g3 japanese-jisx0212
238 short t 212 short t
239 mnemonic "Ja/EUC" 213 mnemonic "Ja/EUC"
240 )) 214 ))
241 215
242 ;; (define-coding-system-alias 'euc-japan-1990 'japanese-iso-8bit) 216 ;;(define-coding-system-alias 'euc-japan-1990 'euc-japan)
243 ;; (define-coding-system-alias 'euc-japan 'japanese-iso-8bit) 217
244 ;; (define-coding-system-alias 'euc-jp 'japanese-iso-8bit) 218 (copy-coding-system 'euc-jp 'euc-japan) ; only for w3
245 219 (copy-coding-system 'euc-jp 'japanese-euc)
246 (define-coding-system-alias 'euc-japan 'euc-jp) ; only for w3
247 (define-coding-system-alias 'japanese-euc 'euc-jp)
248 220
249 (set-language-info-alist 221 (set-language-info-alist
250 "Japanese" '((setup-function . setup-japanese-environment-internal) 222 "Japanese" '((setup-function . setup-japanese-environment)
251 (exit-function . exit-japanese-environment)
252 (tutorial . "TUTORIAL.ja") 223 (tutorial . "TUTORIAL.ja")
253 (charset japanese-jisx0208 japanese-jisx0208-1978 224 (charset . (japanese-jisx0208 japanese-jisx0208-1978
254 japanese-jisx0212 latin-jisx0201 katakana-jisx0201) 225 japanese-jisx0212 latin-jisx0201
255 (coding-system iso-2022-jp euc-jp 226 katakana-jisx0201))
256 shift_jis iso-2022-jp-2) 227 (coding-system . (iso-2022-jp euc-jp
257 (coding-priority iso-2022-jp euc-jp 228 shift_jis iso-2022-jp-1978-irv))
258 shift_jis iso-2022-jp-2) 229 (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B")
259 ;; (input-method . "japanese")
260 (features japan-util)
261 (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, )IºÝÆÁÊ")-A
262 (documentation . t))) 230 (documentation . t)))
263 231
264 ;;; japanese.el ends here 232 ;;; japanese.el ends here