Mercurial > emacs

comparison lisp/language/japanese.el @ 88513:bafe04d82c5d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix :mime-charset properties.
author Dave Love <fx@gnu.org>
date Tue, 14 May 2002 15:37:13 +0000
parents fad0f879877f
children d1b1b7398049
comparison
equal deleted inserted replaced
88512:1e2fb9a9f29c 88513:bafe04d82c5d
37 latin-jisx0201 japanese-jisx0212) 37 latin-jisx0201 japanese-jisx0212)
38 nil nil nil] 38 nil nil nil]
39 :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation) 39 :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation)
40 :charset-list '(ascii japanese-jisx0208-1978 japanese-jisx0208 40 :charset-list '(ascii japanese-jisx0208-1978 japanese-jisx0208
41 latin-jisx0201 japanese-jisx0212) 41 latin-jisx0201 japanese-jisx0212)
42 :plist '(mime-charset iso-2022-jp)) 42 :mime-charset 'iso-2022-jp)
43 43
44 (define-coding-system-alias 'junet 'iso-2022-jp) 44 (define-coding-system-alias 'junet 'iso-2022-jp)
45 45
46 (define-coding-system 'iso-2022-jp-2 46 (define-coding-system 'iso-2022-jp-2
47 "ISO 2022 based 7bit encoding for CJK, Latin-1, Greek (MIME:ISO-2022-JP-2)." 47 "ISO 2022 based 7bit encoding for CJK, Latin-1, Greek (MIME:ISO-2022-JP-2)."
57 init-at-bol) 57 init-at-bol)
58 :charset-list '(ascii japanese-jisx0208-1978 japanese-jisx0208 58 :charset-list '(ascii japanese-jisx0208-1978 japanese-jisx0208
59 latin-jisx0201 japanese-jisx0212 59 latin-jisx0201 japanese-jisx0212
60 chinese-gb2312 korean-ksc5601 60 chinese-gb2312 korean-ksc5601
61 latin-iso8859-1 greek-iso8859-7) 61 latin-iso8859-1 greek-iso8859-7)
62 :plist '(mime-charset iso-2022-jp-2)) 62 :mime-charset 'iso-2022-jp-2)
63 63
64 (define-coding-system 'japanese-shift-jis 64 (define-coding-system 'japanese-shift-jis
65 "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)" 65 "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)"
66 :coding-type 'shift-jis 66 :coding-type 'shift-jis
67 :mnemonic ?S 67 :mnemonic ?S
68 :charset-list '(ascii katakana-jisx0201 japanese-jisx0208) 68 :charset-list '(ascii katakana-jisx0201 japanese-jisx0208)
69 :plist '(mime-charset shift_jis)) 69 :mime-charset 'shift_jis)
70 70
71 (define-coding-system-alias 'shift_jis 'japanese-shift-jis) 71 (define-coding-system-alias 'shift_jis 'japanese-shift-jis)
72 (define-coding-system-alias 'sjis 'japanese-shift-jis) 72 (define-coding-system-alias 'sjis 'japanese-shift-jis)
73 73
74 (define-coding-system 'japanese-iso-7bit-1978-irv 74 (define-coding-system 'japanese-iso-7bit-1978-irv
92 :designation [ascii japanese-jisx0208 katakana-jisx0201 japanese-jisx0212] 92 :designation [ascii japanese-jisx0208 katakana-jisx0201 japanese-jisx0212]
93 :flags '(short ascii-at-eol ascii-at-cntl single-shift) 93 :flags '(short ascii-at-eol ascii-at-cntl single-shift)
94 :charset-list '(ascii latin-jisx0201 japanese-jisx0208 94 :charset-list '(ascii latin-jisx0201 japanese-jisx0208
95 japanese-jisx0208-1978 95 japanese-jisx0208-1978
96 katakana-jisx0201 japanese-jisx0212) 96 katakana-jisx0201 japanese-jisx0212)
97 :plist '(mime-charset euc-jp)) 97 :mime-charset 'euc-jp)
98 98
99 (define-coding-system-alias 'euc-japan-1990 'japanese-iso-8bit) 99 (define-coding-system-alias 'euc-japan-1990 'japanese-iso-8bit)
100 (define-coding-system-alias 'euc-japan 'japanese-iso-8bit) 100 (define-coding-system-alias 'euc-japan 'japanese-iso-8bit)
101 (define-coding-system-alias 'euc-jp 'japanese-iso-8bit) 101 (define-coding-system-alias 'euc-jp 'japanese-iso-8bit)
102 102