Mercurial > emacs

comparison lisp/language/japanese.el @ 90210:8006f0bf9292

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(iso-2022-jp, iso-2022-jp-2) (iso-2022-jp-2004): Set :suitable-for-keyboard property to 1.
author Kenichi Handa <handa@m17n.org>
date Fri, 29 Jul 2005 06:14:45 +0000
parents f9a65d7ebd29
children 6588c6259dfb
comparison
equal deleted inserted replaced
90209:182221fb0f2c 90210:8006f0bf9292
46 latin-jisx0201) 46 latin-jisx0201)
47 nil nil nil] 47 nil nil nil]
48 :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation) 48 :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation)
49 :charset-list '(ascii japanese-jisx0208 49 :charset-list '(ascii japanese-jisx0208
50 japanese-jisx0208-1978 latin-jisx0201) 50 japanese-jisx0208-1978 latin-jisx0201)
51 :mime-charset 'iso-2022-jp) 51 :mime-charset 'iso-2022-jp
52 :suitable-for-keyboard t)
52 53
53 (define-coding-system-alias 'junet 'iso-2022-jp) 54 (define-coding-system-alias 'junet 'iso-2022-jp)
54 55
55 (define-coding-system 'iso-2022-jp-2 56 (define-coding-system 'iso-2022-jp-2
56 "ISO 2022 based 7bit encoding for CJK, Latin-1, Greek (MIME:ISO-2022-JP-2)." 57 "ISO 2022 based 7bit encoding for CJK, Latin-1, Greek (MIME:ISO-2022-JP-2)."
66 init-at-bol) 67 init-at-bol)
67 :charset-list '(ascii japanese-jisx0208 japanese-jisx0212 68 :charset-list '(ascii japanese-jisx0208 japanese-jisx0212
68 latin-jisx0201 japanese-jisx0208-1978 69 latin-jisx0201 japanese-jisx0208-1978
69 chinese-gb2312 korean-ksc5601 70 chinese-gb2312 korean-ksc5601
70 latin-iso8859-1 greek-iso8859-7) 71 latin-iso8859-1 greek-iso8859-7)
71 :mime-charset 'iso-2022-jp-2) 72 :mime-charset 'iso-2022-jp-2
73 :suitable-for-keyboard t)
72 74
73 (let ((map ; JIS vs CP932 75 (let ((map ; JIS vs CP932
74 '((#x301C . #xFF5E) ; WAVE DASH FULLWIDTH TILDE 76 '((#x301C . #xFF5E) ; WAVE DASH FULLWIDTH TILDE
75 (#x2014 . #x2015) ; EM DASH HORIZONTAL BAR 77 (#x2014 . #x2015) ; EM DASH HORIZONTAL BAR
76 (#x2016 . #x2225) ; DOUBLE VERTICAL LINE PARALLEL TO 78 (#x2016 . #x2225) ; DOUBLE VERTICAL LINE PARALLEL TO
160 nil nil nil] 162 nil nil nil]
161 :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation) 163 :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation)
162 ;; init-at-bol) 164 ;; init-at-bol)
163 :charset-list '(ascii japanese-jisx0208 japanese-jisx0213.2004-1 165 :charset-list '(ascii japanese-jisx0208 japanese-jisx0213.2004-1
164 japanese-jisx0213-1 japanese-jisx0213-2) 166 japanese-jisx0213-1 japanese-jisx0213-2)
165 :mime-charset 'iso-2022-jp-2004) 167 :mime-charset 'iso-2022-jp-2004
168 :suitable-for-keyboard t)
166 169
167 (define-coding-system-alias 'iso-2022-jp-3 'iso-2022-jp-2004) 170 (define-coding-system-alias 'iso-2022-jp-3 'iso-2022-jp-2004)
168 171
169 (define-coding-system 'euc-jis-2004 172 (define-coding-system 'euc-jis-2004
170 "ISO 2022 based EUC encoding for JIS X 0213 (MIME:EUC-JIS-2004)." 173 "ISO 2022 based EUC encoding for JIS X 0213 (MIME:EUC-JIS-2004)."