Mercurial > hg > xemacs-beta

comparison lisp/mule/japanese.el @ 422:95016f13131a r21-2-19

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