Mercurial > emacs
annotate lisp/international/characters.el @ 95212:a6a4ada91449
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
* dosfns.c, fileio.c, font.c, fontset.c, image.c, macfns.c:
* macterm.c, process.c, w32.c, w32fns.c, w32proc.c, xfaces.c:
* xfns.c, xfont.c: Callers changed.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Thu, 22 May 2008 14:52:37 +0000 |
parents | 889bc336b89b |
children | 8dfd5f6c48e4 |
rev | line source |
---|---|
17052 | 1 ;;; characters.el --- set syntax and category for multibyte characters |
2 | |
79709 | 3 ;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 |
62274 | 4 ;; Free Software Foundation, Inc. |
74605
6ee41fdd69ff
Update AIST copyright years.
Kenichi Handa <handa@m17n.org>
parents:
74544
diff
changeset
|
5 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
79709 | 6 ;; 2005, 2006, 2007, 2008 |
62274 | 7 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
8 ;; Registration Number H14PRO021 | |
89483 | 9 ;; Copyright (C) 2003 |
88403
3c6459e2914f
Adjusted for the deletion of generic characters.
Kenichi Handa <handa@m17n.org>
parents:
41992
diff
changeset
|
10 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
3c6459e2914f
Adjusted for the deletion of generic characters.
Kenichi Handa <handa@m17n.org>
parents:
41992
diff
changeset
|
11 ;; Registration Number H13PRO009 |
17052 | 12 |
13 ;; Keywords: multibyte character, character set, syntax, category | |
14 | |
15 ;; This file is part of GNU Emacs. | |
16 | |
94664
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94129
diff
changeset
|
17 ;; GNU Emacs is free software: you can redistribute it and/or modify |
17052 | 18 ;; it under the terms of the GNU General Public License as published by |
94664
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94129
diff
changeset
|
19 ;; the Free Software Foundation, either version 3 of the License, or |
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94129
diff
changeset
|
20 ;; (at your option) any later version. |
17052 | 21 |
22 ;; GNU Emacs is distributed in the hope that it will be useful, | |
23 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
24 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
25 ;; GNU General Public License for more details. | |
26 | |
27 ;; You should have received a copy of the GNU General Public License | |
94664
889bc336b89b
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94129
diff
changeset
|
28 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
17052 | 29 |
30 ;;; Commentary: | |
31 | |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36688
diff
changeset
|
32 ;;; Code: |
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36688
diff
changeset
|
33 |
17052 | 34 ;;; Predefined categories. |
35 | |
36 ;; For each character set. | |
37 | |
75827
3f03a7929d8a
Fix documentation of category `a'.
Kenichi Handa <handa@m17n.org>
parents:
75347
diff
changeset
|
38 (define-category ?a "ASCII graphic characters 32-126 (ISO646 IRV:1983[4/0])") |
17052 | 39 (define-category ?l "Latin") |
40 (define-category ?t "Thai") | |
41 (define-category ?g "Greek") | |
42 (define-category ?b "Arabic") | |
43 (define-category ?w "Hebrew") | |
44 (define-category ?y "Cyrillic") | |
45 (define-category ?k "Japanese katakana") | |
46 (define-category ?r "Japanese roman") | |
47 (define-category ?c "Chinese") | |
48 (define-category ?j "Japanese") | |
49 (define-category ?h "Korean") | |
50 (define-category ?e "Ethiopic (Ge'ez)") | |
51 (define-category ?v "Vietnamese") | |
52 (define-category ?i "Indian") | |
17078
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
53 (define-category ?o "Lao") |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
54 (define-category ?q "Tibetan") |
17052 | 55 |
56 ;; For each group (row) of 2-byte character sets. | |
57 | |
22529 | 58 (define-category ?A "Alpha-numeric characters of 2-byte character sets") |
17052 | 59 (define-category ?C "Chinese (Han) characters of 2-byte character sets") |
22529 | 60 (define-category ?G "Greek characters of 2-byte character sets") |
17052 | 61 (define-category ?H "Japanese Hiragana characters of 2-byte character sets") |
62 (define-category ?K "Japanese Katakana characters of 2-byte character sets") | |
63 (define-category ?N "Korean Hangul characters of 2-byte character sets") | |
22529 | 64 (define-category ?Y "Cyrillic characters of 2-byte character sets") |
17052 | 65 (define-category ?I "Indian Glyphs") |
66 | |
67 ;; For phonetic classifications. | |
68 | |
69 (define-category ?0 "consonant") | |
18561
f3c28fd5118e
Modify docstring of char category
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
70 (define-category ?1 "base (independent) vowel") |
17052 | 71 (define-category ?2 "upper diacritical mark (including upper vowel)") |
72 (define-category ?3 "lower diacritical mark (including lower vowel)") | |
90945
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
73 (define-category ?4 "combining tone mark") |
18561
f3c28fd5118e
Modify docstring of char category
Kenichi Handa <handa@m17n.org>
parents:
18377
diff
changeset
|
74 (define-category ?5 "symbol") |
17052 | 75 (define-category ?6 "digit") |
76 (define-category ?7 "vowel-modifying diacritical mark") | |
17078
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
77 (define-category ?8 "vowel-signs") |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
78 (define-category ?9 "semivowel lower") |
17052 | 79 |
80 ;; For filling. | |
81 (define-category ?| "While filling, we can break a line at this character.") | |
82 | |
20247 | 83 ;; For indentation calculation. |
49769
5ed59fd23bc4
Use new ?\s syntax instead of "? " followed by a comment.
Juanma Barranquero <lekktu@gmail.com>
parents:
49601
diff
changeset
|
84 (define-category ?\s |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
85 "This character counts as a space for indentation purposes.") |
20247 | 86 |
22529 | 87 ;; Keep the following for `kinsoku' processing. See comments in |
17052 | 88 ;; kinsoku.el. |
89 (define-category ?> "A character which can't be placed at beginning of line.") | |
90 (define-category ?< "A character which can't be placed at end of line.") | |
91 | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
92 ;; Combining |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
93 (define-category ?^ "Combining diacritic or mark") |
17052 | 94 |
95 ;;; Setting syntax and category. | |
96 | |
97 ;; ASCII | |
98 | |
88425
d7bd9df1799d
Optimize calls of modify-category-entry.
Kenichi Handa <handa@m17n.org>
parents:
88403
diff
changeset
|
99 ;; All ASCII characters have the category `a' (ASCII) and `l' (Latin). |
d7bd9df1799d
Optimize calls of modify-category-entry.
Kenichi Handa <handa@m17n.org>
parents:
88403
diff
changeset
|
100 (modify-category-entry '(32 . 127) ?a) |
d7bd9df1799d
Optimize calls of modify-category-entry.
Kenichi Handa <handa@m17n.org>
parents:
88403
diff
changeset
|
101 (modify-category-entry '(32 . 127) ?l) |
17052 | 102 |
89314 | 103 ;; Deal with the CJK charsets first. Since the syntax of blocks is |
104 ;; defined per charset, and the charsets may contain e.g. Latin | |
105 ;; characters, we end up with the wrong syntax definitions if we're | |
106 ;; not careful. | |
17052 | 107 |
88752 | 108 ;; Chinese characters (Unicode) |
89923
be0153d5e3f8
Give more CJK characters the category `|'.
Kenichi Handa <handa@m17n.org>
parents:
89914
diff
changeset
|
109 (modify-category-entry '(#x2E80 . #x312F) ?|) |
be0153d5e3f8
Give more CJK characters the category `|'.
Kenichi Handa <handa@m17n.org>
parents:
89914
diff
changeset
|
110 (modify-category-entry '(#x3190 . #x33FF) ?|) |
88752 | 111 (modify-category-entry '(#x3400 . #x9FAF) ?C) |
112 (modify-category-entry '(#x3400 . #x9FAF) ?c) | |
113 (modify-category-entry '(#x3400 . #x9FAF) ?|) | |
114 (modify-category-entry '(#xF900 . #xFAFF) ?C) | |
115 (modify-category-entry '(#xF900 . #xFAFF) ?c) | |
116 (modify-category-entry '(#xF900 . #xFAFF) ?|) | |
89680
9f9a2db0bc5a
Fix setting of category `|'.
Kenichi Handa <handa@m17n.org>
parents:
89635
diff
changeset
|
117 (modify-category-entry '(#x20000 . #x2AFFF) ?|) |
9f9a2db0bc5a
Fix setting of category `|'.
Kenichi Handa <handa@m17n.org>
parents:
89635
diff
changeset
|
118 (modify-category-entry '(#x2F800 . #x2FFFF) ?|) |
9f9a2db0bc5a
Fix setting of category `|'.
Kenichi Handa <handa@m17n.org>
parents:
89635
diff
changeset
|
119 |
17052 | 120 |
121 ;; Chinese character set (GB2312) | |
122 | |
88752 | 123 (map-charset-chars #'modify-syntax-entry 'chinese-gb2312 "_" #x2121 #x217E) |
124 (map-charset-chars #'modify-syntax-entry 'chinese-gb2312 "_" #x2221 #x227E) | |
125 (map-charset-chars #'modify-syntax-entry 'chinese-gb2312 "_" #x2921 #x297E) | |
17052 | 126 |
88723 | 127 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?c) |
89014 | 128 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?A #x2330 #x2339) |
129 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?A #x2341 #x235A) | |
130 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?A #x2361 #x237A) | |
88752 | 131 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?H #x2421 #x247E) |
132 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?K #x2521 #x257E) | |
133 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?G #x2621 #x267E) | |
134 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?Y #x2721 #x277E) | |
135 (map-charset-chars #'modify-category-entry 'chinese-gb2312 ?C #x3021 #x7E7E) | |
17052 | 136 |
137 ;; Chinese character set (BIG5) | |
138 | |
88971
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
139 (map-charset-chars #'modify-category-entry 'big5 ?c) |
89014 | 140 (map-charset-chars #'modify-category-entry 'big5 ?C #xA259 #xA25F) |
141 (map-charset-chars #'modify-category-entry 'big5 ?C #xA440 #xC67E) | |
142 (map-charset-chars #'modify-category-entry 'big5 ?C #xC940 #xF9DF) | |
17052 | 143 |
144 ;; Chinese character set (CNS11643) | |
145 | |
88723 | 146 (dolist (c '(chinese-cns11643-1 chinese-cns11643-2 chinese-cns11643-3 |
147 chinese-cns11643-4 chinese-cns11643-5 chinese-cns11643-6 | |
148 chinese-cns11643-7)) | |
149 (map-charset-chars #'modify-category-entry c ?c) | |
89014 | 150 (if (eq c 'chinese-cns11643-1) |
151 (map-charset-chars #'modify-category-entry c ?C #x4421 #x7E7E) | |
89680
9f9a2db0bc5a
Fix setting of category `|'.
Kenichi Handa <handa@m17n.org>
parents:
89635
diff
changeset
|
152 (map-charset-chars #'modify-category-entry c ?C))) |
17052 | 153 |
89483 | 154 ;; Japanese character set (JISX0201, JISX0208, JISX0212, JISX0213) |
17052 | 155 |
88752 | 156 (map-charset-chars #'modify-category-entry 'katakana-jisx0201 ?k) |
157 | |
158 (map-charset-chars #'modify-category-entry 'latin-jisx0201 ?r) | |
88403
3c6459e2914f
Adjusted for the deletion of generic characters.
Kenichi Handa <handa@m17n.org>
parents:
41992
diff
changeset
|
159 |
89483 | 160 (dolist (l '(katakana-jisx0201 japanese-jisx0208 japanese-jisx0212 |
161 japanese-jisx0213-1 japanese-jisx0213-2)) | |
89680
9f9a2db0bc5a
Fix setting of category `|'.
Kenichi Handa <handa@m17n.org>
parents:
89635
diff
changeset
|
162 (map-charset-chars #'modify-category-entry l ?j)) |
17052 | 163 |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
164 ;; Unicode equivalents of JISX0201-kana |
88752 | 165 (let ((range '(#xff61 . #xff9f))) |
166 (modify-category-entry range ?k) | |
167 (modify-category-entry range ?j) | |
168 (modify-category-entry range ?\|)) | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
169 |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
170 ;; Katakana block |
88752 | 171 (let ((range '(#x30a0 . #x30ff))) |
172 ;; ?K is double width, ?k isn't specified | |
173 (modify-category-entry range ?K) | |
174 (modify-category-entry range ?\|)) | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
175 |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
176 ;; Hiragana block |
89483 | 177 (let ((range '(#x3040 . #x309d))) |
88752 | 178 ;; ?H is actually defined to be double width |
179 ;;(modify-category-entry range ?H) | |
89680
9f9a2db0bc5a
Fix setting of category `|'.
Kenichi Handa <handa@m17n.org>
parents:
89635
diff
changeset
|
180 (modify-category-entry range ?\|) |
88752 | 181 ) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
182 |
17052 | 183 ;; JISX0208 |
88752 | 184 (map-charset-chars #'modify-syntax-entry 'japanese-jisx0208 "_" #x2121 #x227E) |
185 (map-charset-chars #'modify-syntax-entry 'japanese-jisx0208 "_" #x2821 #x287E) | |
186 (let ((chars '(?ー ?゛ ?゜ ?ヽ ?ヾ ?ゝ ?ゞ ?〃 ?仝 ?々 ?〆 ?〇))) | |
88519
98ec5d812ccc
Set syntax/category for japanese-jisx0208.
Kenichi Handa <handa@m17n.org>
parents:
88492
diff
changeset
|
187 (dolist (elt chars) |
88612 | 188 (modify-syntax-entry (car chars) "w"))) |
17052 | 189 |
88752 | 190 (map-charset-chars #'modify-category-entry 'japanese-jisx0208 ?A #x2321 #x237E) |
191 (map-charset-chars #'modify-category-entry 'japanese-jisx0208 ?H #x2421 #x247E) | |
192 (map-charset-chars #'modify-category-entry 'japanese-jisx0208 ?K #x2521 #x257E) | |
193 (map-charset-chars #'modify-category-entry 'japanese-jisx0208 ?G #x2621 #x267E) | |
194 (map-charset-chars #'modify-category-entry 'japanese-jisx0208 ?Y #x2721 #x277E) | |
195 (map-charset-chars #'modify-category-entry 'japanese-jisx0208 ?C #x3021 #x7E7E) | |
196 (modify-category-entry ?ー ?K) | |
197 (let ((chars '(?゛ ?゜))) | |
17052 | 198 (while chars |
199 (modify-category-entry (car chars) ?K) | |
200 (modify-category-entry (car chars) ?H) | |
201 (setq chars (cdr chars)))) | |
88752 | 202 (let ((chars '(?ヽ ?ヾ ?ゝ ?ゞ ?〃 ?仝 ?々 ?〆 ?〇))) |
17052 | 203 (while chars |
204 (modify-category-entry (car chars) ?C) | |
205 (setq chars (cdr chars)))) | |
206 | |
207 ;; JISX0212 | |
88723 | 208 |
88752 | 209 (map-charset-chars #'modify-syntax-entry 'japanese-jisx0212 "_" #x2121 #x237E) |
17052 | 210 |
211 ;; JISX0201-Kana | |
88723 | 212 |
88612 | 213 (let ((chars '(?。 ?、 ?・))) |
17052 | 214 (while chars |
215 (modify-syntax-entry (car chars) ".") | |
216 (setq chars (cdr chars)))) | |
217 | |
88469
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
218 (modify-syntax-entry ?\「 "(」") |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
219 (modify-syntax-entry ?\」 "(「") |
36688
45b172fa5c17
Add category `j' for katakana-jisx0201. Fix syntaxes of
Kenichi Handa <handa@m17n.org>
parents:
34507
diff
changeset
|
220 |
17052 | 221 ;; Korean character set (KSC5601) |
222 | |
88723 | 223 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?h) |
88752 | 224 |
225 (map-charset-chars #'modify-syntax-entry 'korean-ksc5601 "_" #x2121 #x227E) | |
89117 | 226 (map-charset-chars #'modify-syntax-entry 'korean-ksc5601 "_" #x2621 #x277E) |
227 (map-charset-chars #'modify-syntax-entry 'korean-ksc5601 "_" #x2830 #x287E) | |
228 (map-charset-chars #'modify-syntax-entry 'korean-ksc5601 "_" #x2930 #x297E) | |
89014 | 229 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?A #x2330 #x2339) |
230 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?A #x2341 #x235A) | |
231 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?A #x2361 #x237A) | |
88752 | 232 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?G #x2521 #x257E) |
233 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?H #x2A21 #x2A7E) | |
234 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?K #x2B21 #x2B7E) | |
235 (map-charset-chars #'modify-category-entry 'korean-ksc5601 ?Y #x2C21 #x2C7E) | |
17052 | 236 |
89314 | 237 ;; These are in more than one charset. |
89483 | 238 (let ((parens (concat "〈〉《》「」『』【】〔〕〖〗〘〙〚〛" |
239 "︵︶︷︸︹︺︻︼︽︾︿﹀﹁﹂﹃﹄" | |
240 "()[]{}")) | |
55675
506ecef6bbf8
Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents:
54657
diff
changeset
|
241 open close) |
506ecef6bbf8
Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents:
54657
diff
changeset
|
242 (dotimes (i (/ (length parens) 2)) |
506ecef6bbf8
Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents:
54657
diff
changeset
|
243 (setq open (aref parens (* i 2)) |
506ecef6bbf8
Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents:
54657
diff
changeset
|
244 close (aref parens (1+ (* i 2)))) |
506ecef6bbf8
Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents:
54657
diff
changeset
|
245 (modify-syntax-entry open (format "(%c" close)) |
506ecef6bbf8
Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents:
54657
diff
changeset
|
246 (modify-syntax-entry close (format ")%c" open)))) |
17052 | 247 |
248 ;; Arabic character set | |
249 | |
250 (let ((charsets '(arabic-iso8859-6 | |
251 arabic-digit | |
252 arabic-1-column | |
253 arabic-2-column))) | |
254 (while charsets | |
89314 | 255 (map-charset-chars #'modify-category-entry (car charsets) ?b) |
17052 | 256 (setq charsets (cdr charsets)))) |
89314 | 257 (modify-category-entry '(#x600 . #x6ff) ?b) |
258 (modify-category-entry '(#xfb50 . #xfdff) ?b) | |
259 (modify-category-entry '(#xfe70 . #xfefe) ?b) | |
55675
506ecef6bbf8
Fix syntax (open/close) of CJK characters.
Kenichi Handa <handa@m17n.org>
parents:
54657
diff
changeset
|
260 |
17052 | 261 ;; Cyrillic character set (ISO-8859-5) |
262 | |
89314 | 263 (modify-syntax-entry ?№ ".") |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
264 |
17052 | 265 ;; Ethiopic character set |
266 | |
90535 | 267 (modify-category-entry '(#x1200 . #x1399) ?e) |
268 (modify-category-entry '(#x2d80 . #x2dde) ?e) | |
91933
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
269 (let ((chars '(?፡ ?። ?፣ ?፤ ?፥ ?፦ ?፧ ?፨))) |
18304
58b39b4108d5
Set syntaxes of Ethiopic characters.
Kenichi Handa <handa@m17n.org>
parents:
18205
diff
changeset
|
270 (while chars |
58b39b4108d5
Set syntaxes of Ethiopic characters.
Kenichi Handa <handa@m17n.org>
parents:
18205
diff
changeset
|
271 (modify-syntax-entry (car chars) ".") |
58b39b4108d5
Set syntaxes of Ethiopic characters.
Kenichi Handa <handa@m17n.org>
parents:
18205
diff
changeset
|
272 (setq chars (cdr chars)))) |
89314 | 273 (map-charset-chars #'modify-category-entry 'ethiopic ?e) |
17052 | 274 |
275 ;; Hebrew character set (ISO-8859-8) | |
276 | |
89314 | 277 (modify-syntax-entry #x5be ".") ; MAQAF |
278 (modify-syntax-entry #x5c0 ".") ; PASEQ | |
279 (modify-syntax-entry #x5c3 ".") ; SOF PASUQ | |
280 (modify-syntax-entry #x5f3 ".") ; GERESH | |
281 (modify-syntax-entry #x5f4 ".") ; GERSHAYIM | |
17052 | 282 |
283 ;; Indian character set (IS 13194 and other Emacs original Indian charsets) | |
284 | |
89314 | 285 (modify-category-entry '(#x901 . #x970) ?i) |
286 (map-charset-chars #'modify-category-entry 'indian-is13194 ?i) | |
287 (map-charset-chars #'modify-category-entry 'indian-2-column ?i) | |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
288 |
17078
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
289 ;; Lao character set |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
290 |
88612 | 291 (modify-category-entry '(#xe80 . #xeff) ?o) |
292 (map-charset-chars #'modify-category-entry 'lao ?o) | |
17078
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
293 |
88612 | 294 (let ((deflist '(("ກ-ຮ" "w" ?0) ; consonant |
88469
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
295 ("ະາຳຽເ-ໄ" "w" ?1) ; vowel base |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
296 ("ັິ-ືົໍ" "w" ?2) ; vowel upper |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
297 ("ຸູ" "w" ?3) ; vowel lower |
89483 | 298 ("່-໋" "w" ?4) ; tone mark |
88469
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
299 ("ຼຽ" "w" ?9) ; semivowel lower |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
300 ("໐-໙" "w" ?6) ; digit |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
301 ("ຯໆ" "_" ?5) ; symbol |
17078
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
302 )) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
303 elm chars len syntax category to ch i) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
304 (while deflist |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
305 (setq elm (car deflist)) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
306 (setq chars (car elm) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
307 len (length chars) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
308 syntax (nth 1 elm) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
309 category (nth 2 elm) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
310 i 0) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
311 (while (< i len) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
312 (if (= (aref chars i) ?-) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
313 (setq i (1+ i) |
20843 | 314 to (aref chars i)) |
315 (setq ch (aref chars i) | |
17078
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
316 to ch)) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
317 (while (<= ch to) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
318 (unless (string-equal syntax "w") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
319 (modify-syntax-entry ch syntax)) |
17078
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
320 (modify-category-entry ch category) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
321 (setq ch (1+ ch))) |
20843 | 322 (setq i (1+ i))) |
17078
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
323 (setq deflist (cdr deflist)))) |
874b471d6635
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
324 |
17052 | 325 ;; Thai character set (TIS620) |
326 | |
88612 | 327 (modify-category-entry '(#xe00 . #xe7f) ?t) |
328 (map-charset-chars #'modify-category-entry 'thai-tis620 ?t) | |
17052 | 329 |
330 (let ((deflist '(;; chars syntax category | |
88469
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
331 ("ก-รลว-ฮ" "w" ?0) ; consonant |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
332 ("ฤฦะาำเ-ๅ" "w" ?1) ; vowel base |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
333 ("ัิ-ื็๎" "w" ?2) ; vowel upper |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
334 ("ุ-ฺ" "w" ?3) ; vowel lower |
89483 | 335 ("่-ํ" "w" ?4) ; tone mark |
88469
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
336 ("๐-๙" "w" ?6) ; digit |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
337 ("ฯๆ฿๏๚๛" "_" ?5) ; symbol |
17052 | 338 )) |
339 elm chars len syntax category to ch i) | |
340 (while deflist | |
341 (setq elm (car deflist)) | |
342 (setq chars (car elm) | |
343 len (length chars) | |
344 syntax (nth 1 elm) | |
345 category (nth 2 elm) | |
346 i 0) | |
347 (while (< i len) | |
348 (if (= (aref chars i) ?-) | |
349 (setq i (1+ i) | |
20843 | 350 to (aref chars i)) |
351 (setq ch (aref chars i) | |
17052 | 352 to ch)) |
353 (while (<= ch to) | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
354 (unless (string-equal syntax "w") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
355 (modify-syntax-entry ch syntax)) |
17052 | 356 (modify-category-entry ch category) |
357 (setq ch (1+ ch))) | |
20843 | 358 (setq i (1+ i))) |
17052 | 359 (setq deflist (cdr deflist)))) |
360 | |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
361 ;; Tibetan character set |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
362 |
88612 | 363 (modify-category-entry '(#xf00 . #xfff) ?q) |
364 (map-charset-chars #'modify-category-entry 'tibetan ?q) | |
365 (map-charset-chars #'modify-category-entry 'tibetan-1-column ?q) | |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
366 |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
367 (let ((deflist '(;; chars syntax category |
88711 | 368 ("ཀ-ཀྵཪ" "w" ?0) ; consonant |
91933
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
369 ("ྐ-ྐྵྺྻྼ" "w" ?0) ; |
88711 | 370 ("ིེཻོཽྀ" "w" ?2) ; upper vowel |
371 ("ཾྂྃ྆྇ྈྉྊྋ" "w" ?2) ; upper modifier | |
91933
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
372 ("྄ཱུ༙༵༷" "w" ?3) ; lowel vowel/modifier |
89483 | 373 ("" "w" ?3) ; invisible vowel a |
88711 | 374 ("༠-༩༪-༳" "w" ?6) ; digit |
375 ("་།-༒༔ཿ" "." ?|) ; line-break char | |
376 ("་།༏༐༑༔ཿ" "." ?|) ; | |
377 ("༈་།-༒༔ཿ༽༴" "." ?>) ; prohibition | |
378 ("་།༏༐༑༔ཿ" "." ?>) ; | |
379 ("ༀ-༊༼࿁࿂྅" "." ?<) ; prohibition | |
380 ("༓༕-༘༚-༟༶༸-༻༾༿྾྿-࿏" "." ?q) ; others | |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
381 )) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
382 elm chars len syntax category to ch i) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
383 (while deflist |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
384 (setq elm (car deflist)) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
385 (setq chars (car elm) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
386 len (length chars) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
387 syntax (nth 1 elm) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
388 category (nth 2 elm) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
389 i 0) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
390 (while (< i len) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
391 (if (= (aref chars i) ?-) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
392 (setq i (1+ i) |
20843 | 393 to (aref chars i)) |
394 (setq ch (aref chars i) | |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
395 to ch)) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
396 (while (<= ch to) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
397 (unless (string-equal syntax "w") |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
398 (modify-syntax-entry ch syntax)) |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
399 (modify-category-entry ch category) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
400 (setq ch (1+ ch))) |
20843 | 401 (setq i (1+ i))) |
17753
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
402 (setq deflist (cdr deflist)))) |
de6be7f3b904
Set syntax and category for Devanagari, Thai, and
Kenichi Handa <handa@m17n.org>
parents:
17296
diff
changeset
|
403 |
17052 | 404 ;; Vietnamese character set |
405 | |
88612 | 406 ;; To make a word with Latin characters |
407 (map-charset-chars #'modify-category-entry 'vietnamese-viscii-lower ?l) | |
408 (map-charset-chars #'modify-category-entry 'vietnamese-viscii-lower ?v) | |
409 | |
410 (map-charset-chars #'modify-category-entry 'vietnamese-viscii-upper ?l) | |
411 (map-charset-chars #'modify-category-entry 'vietnamese-viscii-upper ?v) | |
17052 | 412 |
27691
5ed8dd27c116
Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents:
26885
diff
changeset
|
413 (let ((tbl (standard-case-table)) |
5ed8dd27c116
Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents:
26885
diff
changeset
|
414 (i 32)) |
5ed8dd27c116
Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents:
26885
diff
changeset
|
415 (while (< i 128) |
88711 | 416 (let* ((char (decode-char 'vietnamese-viscii-upper i)) |
417 (charl (decode-char 'vietnamese-viscii-lower i)) | |
418 (uc (encode-char char 'ucs)) | |
419 (lc (encode-char charl 'ucs))) | |
420 (set-case-syntax-pair char (decode-char 'vietnamese-viscii-lower i) | |
421 tbl) | |
422 (if uc (modify-category-entry uc ?v)) | |
423 (if lc (modify-category-entry lc ?v))) | |
27691
5ed8dd27c116
Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents:
26885
diff
changeset
|
424 (setq i (1+ i)))) |
5ed8dd27c116
Setup case table for Vietnamese.
Kenichi Handa <handa@m17n.org>
parents:
26885
diff
changeset
|
425 |
90945
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
426 ;; Tai Viet |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
427 (let ((deflist '(;; chars syntax category |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
428 ((?ꪀ. ?ꪯ) "w" ?0) ; cosonant |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
429 ("ꪱꪵꪶ" "w" ?1) ; vowel base |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
430 ((?ꪹ . ?ꪽ) "w" ?1) ; vowel base |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
431 ("ꪰꪲꪳꪷꪸꪾ" "w" ?2) ; vowel upper |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
432 ("ꪴ" "w" ?3) ; vowel lower |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
433 ("ꫀꫂ" "w" ?1) ; non-combining tone-mark |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
434 ("꪿꫁" "w" ?4) ; combining tone-mark |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
435 ((?ꫛ . ?꫟) "_" ?5) ; symbol |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
436 ))) |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
437 (dolist (elm deflist) |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
438 (let ((chars (car elm)) |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
439 (syntax (nth 1 elm)) |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
440 (category (nth 2 elm))) |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
441 (if (consp chars) |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
442 (progn |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
443 (modify-syntax-entry chars syntax) |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
444 (modify-category-entry chars category)) |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
445 (mapc #'(lambda (x) |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
446 (modify-syntax-entry x syntax) |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
447 (modify-category-entry x category)) |
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
448 chars))))) |
89314 | 449 |
450 ;; Latin | |
451 | |
452 (modify-category-entry '(#x80 . #x024F) ?l) | |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
453 |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
454 (let ((tbl (standard-case-table)) c) |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
455 |
89146 | 456 ;; Latin-1 |
457 | |
458 ;; Fixme: Some of the non-word syntaxes here perhaps should be | |
459 ;; reviewed. (Note that the following all implicitly have word | |
460 ;; syntax: ¢£¤¥¨ª¯²³´¶¸¹º.) There should be a well-defined way of | |
461 ;; relating Unicode categories to Emacs syntax codes. | |
90146
a4445dd2a017
Set syntax of NBSP to punctuation.
Kenichi Handa <handa@m17n.org>
parents:
89923
diff
changeset
|
462 |
a4445dd2a017
Set syntax of NBSP to punctuation.
Kenichi Handa <handa@m17n.org>
parents:
89923
diff
changeset
|
463 ;; NBSP isn't semantically interchangeable with other whitespace chars, |
a4445dd2a017
Set syntax of NBSP to punctuation.
Kenichi Handa <handa@m17n.org>
parents:
89923
diff
changeset
|
464 ;; so it's more like punctation. |
a4445dd2a017
Set syntax of NBSP to punctuation.
Kenichi Handa <handa@m17n.org>
parents:
89923
diff
changeset
|
465 (set-case-syntax ? "." tbl) |
89146 | 466 (set-case-syntax ?¡ "." tbl) |
467 (set-case-syntax ?¦ "_" tbl) | |
468 (set-case-syntax ?§ "." tbl) | |
469 (set-case-syntax ?© "_" tbl) | |
470 (set-case-syntax-delims 171 187 tbl) ; « » | |
471 (set-case-syntax ?¬ "_" tbl) | |
472 (set-case-syntax ? "_" tbl) | |
473 (set-case-syntax ?® "_" tbl) | |
474 (set-case-syntax ?° "_" tbl) | |
475 (set-case-syntax ?± "_" tbl) | |
476 (set-case-syntax ?µ "_" tbl) | |
477 (set-case-syntax ?· "_" tbl) | |
478 (set-case-syntax ?¼ "_" tbl) | |
479 (set-case-syntax ?½ "_" tbl) | |
480 (set-case-syntax ?¾ "_" tbl) | |
481 (set-case-syntax ?¿ "." tbl) | |
482 (let ((c 192)) | |
483 (while (<= c 222) | |
484 (set-case-syntax-pair c (+ c 32) tbl) | |
485 (setq c (1+ c)))) | |
486 (set-case-syntax ?× "_" tbl) | |
487 (set-case-syntax ?ß "w" tbl) | |
488 (set-case-syntax ?÷ "_" tbl) | |
489 ;; See below for ÿ. | |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
490 |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
491 ;; Latin Extended-A, Latin Extended-B |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
492 (setq c #x0100) |
90792
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
493 (while (<= c #x02B8) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
494 (modify-category-entry c ?l) |
76328 | 495 (setq c (1+ c))) |
76320
7bc5977e9593
Set category `l' (latin) for more
Kenichi Handa <handa@m17n.org>
parents:
75827
diff
changeset
|
496 |
90792
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
497 (let ((pair-ranges '((#x0100 . #x012F) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
498 (#x0132 . #x0137) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
499 (#x0139 . #x0148) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
500 (#x014a . #x0177) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
501 (#x0179 . #x017E) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
502 (#x0182 . #x0185) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
503 (#x0187 . #x018C) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
504 (#x0191 . #x0192) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
505 (#x0198 . #x0199) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
506 (#x01A0 . #x01A5) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
507 (#x01A7 . #x01A8) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
508 (#x01AC . #x01AD) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
509 (#x01AF . #x01B0) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
510 (#x01B3 . #x01B6) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
511 (#x01BC . #x01BD) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
512 (#x01CD . #x01DC) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
513 (#x01DE . #x01EF) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
514 (#x01F4 . #x01F5) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
515 (#x01F8 . #x021F) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
516 (#x0222 . #x0233) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
517 (#x023B . #x023C) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
518 (#x0241 . #x0242) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
519 (#x0246 . #x024F)))) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
520 (dolist (elt pair-ranges) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
521 (let ((from (car elt)) (to (cdr elt))) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
522 (while (< from to) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
523 (set-case-syntax-pair from (1+ from) tbl) |
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
524 (setq from (+ from 2)))))) |
73944
dba240f0d108
(case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents:
71399
diff
changeset
|
525 |
dba240f0d108
(case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents:
71399
diff
changeset
|
526 ;; In some languages, such as Turkish, U+0049 LATIN CAPITAL LETTER I |
dba240f0d108
(case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents:
71399
diff
changeset
|
527 ;; and U+0131 LATIN SMALL LETTER DOTLESS I make a case pair, and so |
dba240f0d108
(case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents:
71399
diff
changeset
|
528 ;; do U+0130 LATIN CAPITAL LETTER I WITH DOT ABOVE and U+0069 LATIN |
dba240f0d108
(case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents:
71399
diff
changeset
|
529 ;; SMALL LETTER I. |
dba240f0d108
(case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents:
71399
diff
changeset
|
530 |
dba240f0d108
(case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents:
71399
diff
changeset
|
531 ;; We used to set up half of those correspondence unconditionally, |
dba240f0d108
(case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents:
71399
diff
changeset
|
532 ;; but that makes searches slow. So now we don't set up either half |
dba240f0d108
(case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents:
71399
diff
changeset
|
533 ;; of these correspondences by default. |
dba240f0d108
(case table): Do nothing special for i and I.
Richard M. Stallman <rms@gnu.org>
parents:
71399
diff
changeset
|
534 |
90669 | 535 ;; (set-downcase-syntax ?İ ?i tbl) |
536 ;; (set-upcase-syntax ?I ?ı tbl) | |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
537 |
88469
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
538 (set-case-syntax-pair ?DŽ ?dž tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
539 (set-case-syntax-pair ?Dž ?dž tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
540 (set-case-syntax-pair ?LJ ?lj tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
541 (set-case-syntax-pair ?Lj ?lj tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
542 (set-case-syntax-pair ?NJ ?nj tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
543 (set-case-syntax-pair ?Nj ?nj tbl) |
90792
e8573c9233d0
Add more cases/syntaxes from Latin
Kenichi Handa <handa@m17n.org>
parents:
90751
diff
changeset
|
544 |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
545 ;; 01F0; F; 006A 030C; # LATIN SMALL LETTER J WITH CARON |
88469
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
546 (set-case-syntax-pair ?DZ ?dz tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
547 (set-case-syntax-pair ?Dz ?dz tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
548 (set-case-syntax-pair ?Ƕ ?ƕ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
549 (set-case-syntax-pair ?Ƿ ?ƿ tbl) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
550 |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
551 ;; Latin Extended Additional |
88612 | 552 (modify-category-entry '(#x1e00 . #x1ef9) ?l) |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
553 (setq c #x1e00) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
554 (while (<= c #x1ef9) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
555 (and (zerop (% c 2)) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
556 (or (<= c #x1e94) (>= c #x1ea0)) |
88612 | 557 (set-case-syntax-pair c (1+ c) tbl)) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
558 (setq c (1+ c))) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
559 |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
560 ;; Greek |
88612 | 561 (modify-category-entry '(#x0370 . #x03ff) ?g) |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
562 (setq c #x0370) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
563 (while (<= c #x03ff) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
564 (if (or (and (>= c #x0391) (<= c #x03a1)) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
565 (and (>= c #x03a3) (<= c #x03ab))) |
88612 | 566 (set-case-syntax-pair c (+ c 32) tbl)) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
567 (and (>= c #x03da) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
568 (<= c #x03ee) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
569 (zerop (% c 2)) |
88612 | 570 (set-case-syntax-pair c (1+ c) tbl)) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
571 (setq c (1+ c))) |
88469
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
572 (set-case-syntax-pair ?Ά ?ά tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
573 (set-case-syntax-pair ?Έ ?έ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
574 (set-case-syntax-pair ?Ή ?ή tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
575 (set-case-syntax-pair ?Ί ?ί tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
576 (set-case-syntax-pair ?Ό ?ό tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
577 (set-case-syntax-pair ?Ύ ?ύ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
578 (set-case-syntax-pair ?Ώ ?ώ tbl) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
579 |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
580 ;; Armenian |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
581 (setq c #x531) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
582 (while (<= c #x556) |
88612 | 583 (set-case-syntax-pair c (+ c #x30) tbl) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
584 (setq c (1+ c))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
585 |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
586 ;; Greek Extended |
88612 | 587 (modify-category-entry '(#x1f00 . #x1fff) ?g) |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
588 (setq c #x1f00) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
589 (while (<= c #x1fff) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
590 (and (<= (logand c #x000f) 7) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
591 (<= c #x1fa7) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
592 (not (memq c '(#x1f50 #x1f52 #x1f54 #x1f56))) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
593 (/= (logand c #x00f0) 7) |
88612 | 594 (set-case-syntax-pair (+ c 8) c tbl)) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
595 (setq c (1+ c))) |
88469
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
596 (set-case-syntax-pair ?Ᾰ ?ᾰ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
597 (set-case-syntax-pair ?Ᾱ ?ᾱ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
598 (set-case-syntax-pair ?Ὰ ?ὰ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
599 (set-case-syntax-pair ?Ά ?ά tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
600 (set-case-syntax-pair ?ᾼ ?ᾳ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
601 (set-case-syntax-pair ?Ὲ ?ὲ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
602 (set-case-syntax-pair ?Έ ?έ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
603 (set-case-syntax-pair ?Ὴ ?ὴ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
604 (set-case-syntax-pair ?Ή ?ή tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
605 (set-case-syntax-pair ?ῌ ?ῃ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
606 (set-case-syntax-pair ?Ῐ ?ῐ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
607 (set-case-syntax-pair ?Ῑ ?ῑ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
608 (set-case-syntax-pair ?Ὶ ?ὶ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
609 (set-case-syntax-pair ?Ί ?ί tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
610 (set-case-syntax-pair ?Ῠ ?ῠ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
611 (set-case-syntax-pair ?Ῡ ?ῡ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
612 (set-case-syntax-pair ?Ὺ ?ὺ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
613 (set-case-syntax-pair ?Ύ ?ύ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
614 (set-case-syntax-pair ?Ῥ ?ῥ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
615 (set-case-syntax-pair ?Ὸ ?ὸ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
616 (set-case-syntax-pair ?Ό ?ό tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
617 (set-case-syntax-pair ?Ὼ ?ὼ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
618 (set-case-syntax-pair ?Ώ ?ώ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
619 (set-case-syntax-pair ?ῼ ?ῳ tbl) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
620 |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
621 ;; cyrillic |
88612 | 622 (modify-category-entry '(#x0400 . #x04FF) ?y) |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
623 (setq c #x0400) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
624 (while (<= c #x04ff) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
625 (and (>= c #x0400) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
626 (<= c #x040f) |
88612 | 627 (set-case-syntax-pair c (+ c 80) tbl)) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
628 (and (>= c #x0410) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
629 (<= c #x042f) |
88612 | 630 (set-case-syntax-pair c (+ c 32) tbl)) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
631 (and (zerop (% c 2)) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
632 (or (and (>= c #x0460) (<= c #x0480)) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
633 (and (>= c #x048c) (<= c #x04be)) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
634 (and (>= c #x04d0) (<= c #x04f4))) |
89483 | 635 (set-case-syntax-pair c (1+ c) tbl)) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
636 (setq c (1+ c))) |
88469
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
637 (set-case-syntax-pair ?Ӂ ?ӂ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
638 (set-case-syntax-pair ?Ӄ ?ӄ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
639 (set-case-syntax-pair ?Ӈ ?ӈ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
640 (set-case-syntax-pair ?Ӌ ?ӌ tbl) |
dad99fefc4b3
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Kenichi Handa <handa@m17n.org>
parents:
88425
diff
changeset
|
641 (set-case-syntax-pair ?Ӹ ?ӹ tbl) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
642 |
34507
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
643 ;; general punctuation |
ed8ea5cf198b
Fix cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
33902
diff
changeset
|
644 (setq c #x2000) |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
645 (while (<= c #x200b) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
646 (set-case-syntax c " " tbl) |
52950 | 647 (setq c (1+ c))) |
89119 | 648 (while (<= c #x200F) |
649 (set-case-syntax c "." tbl) | |
650 (setq c (1+ c))) | |
651 ;; Fixme: These aren't all right: | |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
652 (setq c #x2010) |
52950 | 653 (while (<= c #x2016) |
89909 | 654 (set-case-syntax c "_" tbl) |
52950 | 655 (setq c (1+ c))) |
656 ;; Punctuation syntax for quotation marks (like `) | |
657 (while (<= c #x201f) | |
89909 | 658 (set-case-syntax c "." tbl) |
52950 | 659 (setq c (1+ c))) |
89909 | 660 ;; Fixme: These aren't all right: |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
661 (while (<= c #x2027) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
662 (set-case-syntax c "_" tbl) |
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
663 (setq c (1+ c))) |
89119 | 664 (while (<= c #x206F) |
665 (set-case-syntax c "." tbl) | |
52950 | 666 (setq c (1+ c))) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
667 |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
668 ;; Roman numerals |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
669 (setq c #x2160) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
670 (while (<= c #x216f) |
88612 | 671 (set-case-syntax-pair c (+ c #x10) tbl) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
672 (setq c (1+ c))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
673 |
89146 | 674 ;; Fixme: The following blocks might be better as symbol rather than |
675 ;; punctuation. | |
89119 | 676 ;; Arrows |
677 (setq c #x2190) | |
89121 | 678 (while (<= c #x21FF) |
679 (set-case-syntax c "." tbl) | |
89119 | 680 (setq c (1+ c))) |
681 ;; Mathematical Operators | |
682 (while (<= c #x22FF) | |
89121 | 683 (set-case-syntax c "." tbl) |
89119 | 684 (setq c (1+ c))) |
685 ;; Miscellaneous Technical | |
686 (while (<= c #x23FF) | |
89121 | 687 (set-case-syntax c "." tbl) |
89119 | 688 (setq c (1+ c))) |
689 ;; Control Pictures | |
690 (while (<= c #x243F) | |
89121 | 691 (set-case-syntax c "_" tbl) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
692 (setq c (1+ c))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
693 |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
694 ;; Circled Latin |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
695 (setq c #x24b6) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
696 (while (<= c #x24cf) |
88612 | 697 (set-case-syntax-pair c (+ c 26) tbl) |
698 (modify-category-entry c ?l) | |
699 (modify-category-entry (+ c 26) ?l) | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
700 (setq c (1+ c))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
701 |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
702 ;; Fullwidth Latin |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
703 (setq c #xff21) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
704 (while (<= c #xff3a) |
88612 | 705 (set-case-syntax-pair c (+ c #x20) tbl) |
706 (modify-category-entry c ?l) | |
707 (modify-category-entry (+ c #x20) ?l) | |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
708 (setq c (1+ c))) |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
709 |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
710 ;; Combining diacritics |
88612 | 711 (modify-category-entry '(#x300 . #x362) ?^) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
712 ;; Combining marks |
88612 | 713 (modify-category-entry '(#x20d0 . #x20e3) ?^) |
41874
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
714 |
1b93abfcbd87
Don't set word syntax (the default)
Dave Love <fx@gnu.org>
parents:
41466
diff
changeset
|
715 ;; Fixme: syntax for symbols &c |
33902
aacccd8ad977
Specify cases and syntaxes for mule-unicode-0100-24ff.
Kenichi Handa <handa@m17n.org>
parents:
31664
diff
changeset
|
716 ) |
54510
99f05a0b48dd
Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents:
52950
diff
changeset
|
717 |
99f05a0b48dd
Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents:
52950
diff
changeset
|
718 (let ((pairs |
89914
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
719 '("⁅⁆" ; U+2045 U+2046 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
720 "⁽⁾" ; U+207D U+207E |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
721 "₍₎" ; U+208D U+208E |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
722 "〈〉" ; U+2329 U+232A |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
723 "⎴⎵" ; U+23B4 U+23B5 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
724 "❨❩" ; U+2768 U+2769 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
725 "❪❫" ; U+276A U+276B |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
726 "❬❭" ; U+276C U+276D |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
727 "❰❱" ; U+2770 U+2771 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
728 "❲❳" ; U+2772 U+2773 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
729 "❴❵" ; U+2774 U+2775 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
730 "⟦⟧" ; U+27E6 U+27E7 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
731 "⟨⟩" ; U+27E8 U+27E9 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
732 "⟪⟫" ; U+27EA U+27EB |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
733 "⦃⦄" ; U+2983 U+2984 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
734 "⦅⦆" ; U+2985 U+2986 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
735 "⦇⦈" ; U+2987 U+2988 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
736 "⦉⦊" ; U+2989 U+298A |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
737 "⦋⦌" ; U+298B U+298C |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
738 "⦍⦎" ; U+298D U+298E |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
739 "⦏⦐" ; U+298F U+2990 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
740 "⦑⦒" ; U+2991 U+2992 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
741 "⦓⦔" ; U+2993 U+2994 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
742 "⦕⦖" ; U+2995 U+2996 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
743 "⦗⦘" ; U+2997 U+2998 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
744 "⧼⧽" ; U+29FC U+29FD |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
745 "〈〉" ; U+3008 U+3009 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
746 "《》" ; U+300A U+300B |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
747 "「」" ; U+300C U+300D |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
748 "『』" ; U+300E U+300F |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
749 "【】" ; U+3010 U+3011 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
750 "〔〕" ; U+3014 U+3015 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
751 "〖〗" ; U+3016 U+3017 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
752 "〘〙" ; U+3018 U+3019 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
753 "〚〛" ; U+301A U+301B |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
754 "﴾﴿" ; U+FD3E U+FD3F |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
755 "︵︶" ; U+FE35 U+FE36 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
756 "︷︸" ; U+FE37 U+FE38 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
757 "︹︺" ; U+FE39 U+FE3A |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
758 "︻︼" ; U+FE3B U+FE3C |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
759 "︽︾" ; U+FE3D U+FE3E |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
760 "︿﹀" ; U+FE3F U+FE40 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
761 "﹁﹂" ; U+FE41 U+FE42 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
762 "﹃﹄" ; U+FE43 U+FE44 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
763 "﹙﹚" ; U+FE59 U+FE5A |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
764 "﹛﹜" ; U+FE5B U+FE5C |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
765 "﹝﹞" ; U+FE5D U+FE5E |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
766 "()" ; U+FF08 U+FF09 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
767 "[]" ; U+FF3B U+FF3D |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
768 "{}" ; U+FF5B U+FF5D |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
769 "⦅⦆" ; U+FF5F U+FF60 |
a3122a8fd4cb
Fix invalid encoding caused by the previous sync.
Kenichi Handa <handa@m17n.org>
parents:
89909
diff
changeset
|
770 "「」" ; U+FF62 U+FF63 |
54510
99f05a0b48dd
Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents:
52950
diff
changeset
|
771 ))) |
99f05a0b48dd
Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents:
52950
diff
changeset
|
772 (dolist (elt pairs) |
99f05a0b48dd
Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents:
52950
diff
changeset
|
773 (modify-syntax-entry (aref elt 0) (string ?\( (aref elt 1))) |
99f05a0b48dd
Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents:
52950
diff
changeset
|
774 (modify-syntax-entry (aref elt 1) (string ?\) (aref elt 0))))) |
99f05a0b48dd
Setup syntaxes for more parentheses Unicode characters.
Kenichi Handa <handa@m17n.org>
parents:
52950
diff
changeset
|
775 |
17052 | 776 |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
777 ;; For each character set, put the information of the most proper |
24782
8f65cd6729b5
Typo fixed; prefered->preferred.
Kenichi Handa <handa@m17n.org>
parents:
24256
diff
changeset
|
778 ;; coding system to encode it by `preferred-coding-system' property. |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
779 |
88612 | 780 ;; Fixme: should this be junked? |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
781 (let ((l '((latin-iso8859-1 . iso-latin-1) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
782 (latin-iso8859-2 . iso-latin-2) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
783 (latin-iso8859-3 . iso-latin-3) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
784 (latin-iso8859-4 . iso-latin-4) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
785 (thai-tis620 . thai-tis620) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
786 (greek-iso8859-7 . greek-iso-8bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
787 (arabic-iso8859-6 . iso-2022-7bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
788 (hebrew-iso8859-8 . hebrew-iso-8bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
789 (katakana-jisx0201 . japanese-shift-jis) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
790 (latin-jisx0201 . japanese-shift-jis) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
791 (cyrillic-iso8859-5 . cyrillic-iso-8bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
792 (latin-iso8859-9 . iso-latin-5) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
793 (japanese-jisx0208-1978 . iso-2022-jp) |
90685 | 794 (chinese-gb2312 . chinese-iso-8bit) |
795 (chinese-gbk . chinese-gbk) | |
796 (gb18030-2-byte . chinese-gb18030) | |
797 (gb18030-4-byte-bmp . chinese-gb18030) | |
798 (gb18030-4-byte-smp . chinese-gb18030) | |
799 (gb18030-4-byte-ext-1 . chinese-gb18030) | |
800 (gb18030-4-byte-ext-2 . chinese-gb18030) | |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
801 (japanese-jisx0208 . iso-2022-jp) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
802 (korean-ksc5601 . iso-2022-kr) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
803 (japanese-jisx0212 . iso-2022-jp) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
804 (chinese-big5-1 . chinese-big5) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
805 (chinese-big5-2 . chinese-big5) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
806 (chinese-sisheng . iso-2022-7bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
807 (ipa . iso-2022-7bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
808 (vietnamese-viscii-lower . vietnamese-viscii) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
809 (vietnamese-viscii-upper . vietnamese-viscii) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
810 (arabic-digit . iso-2022-7bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
811 (arabic-1-column . iso-2022-7bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
812 (lao . lao) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
813 (arabic-2-column . iso-2022-7bit) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
814 (indian-is13194 . devanagari) |
41466
b364f798b789
Adjusted for the change of indian-1-column -> indian-glyph.
Richard M. Stallman <rms@gnu.org>
parents:
38414
diff
changeset
|
815 (indian-glyph . devanagari) |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
816 (tibetan-1-column . tibetan) |
24256
47e6aa168a66
Let ethiopic use iso-2022-7bit.
Kenichi Handa <handa@m17n.org>
parents:
24208
diff
changeset
|
817 (ethiopic . iso-2022-7bit) |
90685 | 818 (chinese-cns11643-1 . iso-2022-cn) |
819 (chinese-cns11643-2 . iso-2022-cn) | |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
820 (chinese-cns11643-3 . iso-2022-cn) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
821 (chinese-cns11643-4 . iso-2022-cn) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
822 (chinese-cns11643-5 . iso-2022-cn) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
823 (chinese-cns11643-6 . iso-2022-cn) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
824 (chinese-cns11643-7 . iso-2022-cn) |
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
825 (indian-2-column . devanagari) |
26013 | 826 (tibetan . tibetan) |
827 (latin-iso8859-14 . iso-latin-8) | |
828 (latin-iso8859-15 . iso-latin-9)))) | |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
829 (while l |
24782
8f65cd6729b5
Typo fixed; prefered->preferred.
Kenichi Handa <handa@m17n.org>
parents:
24256
diff
changeset
|
830 (put-charset-property (car (car l)) 'preferred-coding-system (cdr (car l))) |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
831 (setq l (cdr l)))) |
23493 | 832 |
833 | |
23527
06e8c3b9deec
Setup charset property nospace-between-words.
Kenichi Handa <handa@m17n.org>
parents:
23493
diff
changeset
|
834 ;; Setup auto-fill-chars for charsets that should invoke auto-filling. |
90634
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
835 ;; SPACE and NEWLINE are already set. |
90258 | 836 |
837 (set-char-table-range auto-fill-chars '(#x3041 . #x30FF) t) | |
838 (set-char-table-range auto-fill-chars '(#x3400 . #x4DB5) t) | |
839 (set-char-table-range auto-fill-chars '(#x4e00 . #x9fbb) t) | |
840 (set-char-table-range auto-fill-chars '(#xF900 . #xFAFF) t) | |
841 (set-char-table-range auto-fill-chars '(#xFF00 . #xFF9F) t) | |
842 (set-char-table-range auto-fill-chars '(#x20000 . #x2FFFF) t) | |
843 | |
90634
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
844 |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
845 ;;; Setting char-width-table. The default is 1. |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
846 |
90634
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
847 ;; 0: non-spacing, enclosing combining, formatting, Hangul Jamo medial |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
848 ;; and final characters. |
94129
f8353eba8b8d
Don't make the width of U+00AD to 0.
Kenichi Handa <handa@m17n.org>
parents:
93517
diff
changeset
|
849 (let ((l '((#x0300 . #x036F) |
90634
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
850 (#x0483 . #x0489) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
851 (#x0591 . #x05BD) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
852 (#x05BF . #x05BF) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
853 (#x05C1 . #x05C2) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
854 (#x05C4 . #x05C5) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
855 (#x05C7 . #x05C7) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
856 (#x0600 . #x0603) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
857 (#x0610 . #x0615) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
858 (#x064B . #x065E) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
859 (#x0670 . #x0670) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
860 (#x06D6 . #x06E4) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
861 (#x06E7 . #x06E8) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
862 (#x06EA . #x06ED) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
863 (#x070F . #x070F) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
864 (#x0711 . #x0711) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
865 (#x0730 . #x074A) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
866 (#x07A6 . #x07B0) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
867 (#x07EB . #x07F3) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
868 (#x0901 . #x0902) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
869 (#x093C . #x093C) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
870 (#x0941 . #x0948) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
871 (#x094D . #x094D) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
872 (#x0951 . #x0954) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
873 (#x0962 . #x0963) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
874 (#x0981 . #x0981) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
875 (#x09BC . #x09BC) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
876 (#x09C1 . #x09C4) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
877 (#x09CD . #x09CD) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
878 (#x09E2 . #x09E3) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
879 (#x0A01 . #x0A02) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
880 (#x0A3C . #x0A3C) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
881 (#x0A41 . #x0A4D) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
882 (#x0A70 . #x0A71) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
883 (#x0A81 . #x0A82) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
884 (#x0ABC . #x0ABC) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
885 (#x0AC1 . #x0AC8) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
886 (#x0ACD . #x0ACD) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
887 (#x0AE2 . #x0AE3) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
888 (#x0B01 . #x0B01) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
889 (#x0B3C . #x0B3C) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
890 (#x0B3F . #x0B3F) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
891 (#x0B41 . #x0B43) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
892 (#x0B4D . #x0B56) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
893 (#x0B82 . #x0B82) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
894 (#x0BC0 . #x0BC0) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
895 (#x0BCD . #x0BCD) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
896 (#x0C3E . #x0C40) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
897 (#x0C46 . #x0C56) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
898 (#x0CBC . #x0CBC) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
899 (#x0CBF . #x0CBF) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
900 (#x0CC6 . #x0CC6) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
901 (#x0CCC . #x0CCD) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
902 (#x0CE2 . #x0CE3) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
903 (#x0D41 . #x0D43) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
904 (#x0D4D . #x0D4D) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
905 (#x0DCA . #x0DCA) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
906 (#x0DD2 . #x0DD6) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
907 (#x0E31 . #x0E31) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
908 (#x0E34 . #x0E3A) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
909 (#x0E47 . #x0E4E) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
910 (#x0EB1 . #x0EB1) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
911 (#x0EB4 . #x0EBC) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
912 (#x0EC8 . #x0ECD) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
913 (#x0F18 . #x0F19) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
914 (#x0F35 . #x0F35) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
915 (#x0F37 . #x0F37) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
916 (#x0F39 . #x0F39) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
917 (#x0F71 . #x0F7E) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
918 (#x0F80 . #x0F84) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
919 (#x0F86 . #x0F87) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
920 (#x0F90 . #x0FBC) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
921 (#x0FC6 . #x0FC6) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
922 (#x102D . #x1030) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
923 (#x1032 . #x1037) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
924 (#x1039 . #x1039) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
925 (#x1058 . #x1059) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
926 (#x1160 . #x11FF) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
927 (#x135F . #x135F) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
928 (#x1712 . #x1714) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
929 (#x1732 . #x1734) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
930 (#x1752 . #x1753) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
931 (#x1772 . #x1773) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
932 (#x17B4 . #x17B5) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
933 (#x17B7 . #x17BD) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
934 (#x17C6 . #x17C6) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
935 (#x17C9 . #x17D3) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
936 (#x17DD . #x17DD) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
937 (#x180B . #x180D) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
938 (#x18A9 . #x18A9) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
939 (#x1920 . #x1922) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
940 (#x1927 . #x1928) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
941 (#x1932 . #x1932) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
942 (#x1939 . #x193B) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
943 (#x1A17 . #x1A18) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
944 (#x1B00 . #x1B03) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
945 (#x1B34 . #x1B34) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
946 (#x1B36 . #x1B3A) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
947 (#x1B3C . #x1B3C) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
948 (#x1B42 . #x1B42) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
949 (#x1B6B . #x1B73) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
950 (#x1DC0 . #x1DFF) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
951 (#x200B . #x200F) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
952 (#x202A . #x202E) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
953 (#x2060 . #x206F) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
954 (#x20D0 . #x20EF) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
955 (#x302A . #x302F) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
956 (#x3099 . #x309A) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
957 (#xA806 . #xA806) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
958 (#xA80B . #xA80B) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
959 (#xA825 . #xA826) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
960 (#xFB1E . #xFB1E) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
961 (#xFE00 . #xFE0F) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
962 (#xFE20 . #xFE23) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
963 (#xFEFF . #xFEFF) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
964 (#xFFF9 . #xFFFB) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
965 (#x10A01 . #x10A0F) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
966 (#x10A38 . #x10A3F) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
967 (#x1D167 . #x1D169) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
968 (#x1D173 . #x1D182) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
969 (#x1D185 . #x1D18B) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
970 (#x1D1AA . #x1D1AD) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
971 (#x1D242 . #x1D244) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
972 (#xE0001 . #xE01EF)))) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
973 (dolist (elt l) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
974 (set-char-table-range char-width-table elt 0))) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
975 |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
976 ;; 2: East Asian Wide and Full-width characters. |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
977 (let ((l '((#x1100 . #x115F) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
978 (#x2329 . #x232A) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
979 (#x2E80 . #x303E) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
980 (#x3040 . #xA4CF) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
981 (#xAC00 . #xD7A3) |
88492
2ce720ffa865
Setup char-width-table for CJK characters.
Kenichi Handa <handa@m17n.org>
parents:
88469
diff
changeset
|
982 (#xF900 . #xFAFF) |
90634
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
983 (#xFE30 . #xFE6F) |
90654 | 984 (#xFF01 . #xFF60) |
90634
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
985 (#xFFE0 . #xFFE6) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
986 (#x20000 . #x2FFFF) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
987 (#x30000 . #x3FFFF)))) |
88492
2ce720ffa865
Setup char-width-table for CJK characters.
Kenichi Handa <handa@m17n.org>
parents:
88469
diff
changeset
|
988 (dolist (elt l) |
90634
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
989 (set-char-table-range char-width-table elt 2))) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
990 |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
991 ;; Other double width |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
992 ;;(map-charset-chars |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
993 ;; (lambda (range ignore) (set-char-table-range char-width-table range 2)) |
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
994 ;; 'ethiopic) |
89117 | 995 ;; (map-charset-chars |
996 ;; (lambda (range ignore) (set-char-table-range char-width-table range 2)) | |
90634
d3f676f3e5cd
Delete codes for setting up charset
Kenichi Handa <handa@m17n.org>
parents:
90591
diff
changeset
|
997 ;; 'tibetan) |
88642
3a7ca837e9b9
Additional double width specifications.
Dave Love <fx@gnu.org>
parents:
88612
diff
changeset
|
998 (map-charset-chars |
3a7ca837e9b9
Additional double width specifications.
Dave Love <fx@gnu.org>
parents:
88612
diff
changeset
|
999 (lambda (range ignore) (set-char-table-range char-width-table range 2)) |
3a7ca837e9b9
Additional double width specifications.
Dave Love <fx@gnu.org>
parents:
88612
diff
changeset
|
1000 'indian-2-column) |
3a7ca837e9b9
Additional double width specifications.
Dave Love <fx@gnu.org>
parents:
88612
diff
changeset
|
1001 (map-charset-chars |
3a7ca837e9b9
Additional double width specifications.
Dave Love <fx@gnu.org>
parents:
88612
diff
changeset
|
1002 (lambda (range ignore) (set-char-table-range char-width-table range 2)) |
3a7ca837e9b9
Additional double width specifications.
Dave Love <fx@gnu.org>
parents:
88612
diff
changeset
|
1003 'arabic-2-column) |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1004 |
91933
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1005 (defvar cjk-char-width-table |
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1006 (let ((table (make-char-table nil))) |
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1007 (dolist (charset '(big5 chinese-gb2312 chinese-cns11643-1 |
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1008 japanese-jisx0208 korean-ksc5601)) |
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1009 (map-charset-chars #'(lambda (range arg) |
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1010 (set-char-table-range table range 2)) |
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1011 charset)) |
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1012 (optimize-char-table table) |
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1013 (set-char-table-parent table char-width-table) |
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1014 table) |
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1015 "Character width table used in CJK language environment.") |
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1016 |
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1017 (defun use-cjk-char-width-table () |
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1018 "Internal use only. |
91936 | 1019 Setup char-width-table appropriate for CJK language environment." |
1020 (setq char-width-table cjk-char-width-table)) | |
91933
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1021 |
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1022 (defun use-default-char-width-table () |
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1023 "Internal use only. |
91936 | 1024 Setup char-width-table appropriate for non-CJK language environment." |
1025 (setq char-width-table (char-table-parent cjk-char-width-table))) | |
91933
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1026 |
88723 | 1027 (optimize-char-table (standard-case-table)) |
1028 (optimize-char-table (standard-category-table)) | |
1029 (optimize-char-table (standard-syntax-table)) | |
1030 | |
91933
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1031 |
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1032 ;; Setting char-script-table. |
1a3f22533482
Delete occurances of non-Unicode
Kenichi Handa <handa@m17n.org>
parents:
91357
diff
changeset
|
1033 |
89119 | 1034 ;; The Unicode blocks actually extend past some of these ranges with |
1035 ;; undefined codepoints. | |
88892 | 1036 (let ((script-list nil)) |
1037 (dolist | |
1038 (elt | |
89008
3e08629c1469
(script-list): Treat ascii characters as `latin' script.
Kenichi Handa <handa@m17n.org>
parents:
88976
diff
changeset
|
1039 '((#x0000 #x007F latin) |
93517
3d721e1337dd
(script-list): Add phonetic script, covering IPA (previously Latin),
Jason Rumney <jasonr@gnu.org>
parents:
91936
diff
changeset
|
1040 (#x00A0 #x024F latin) |
3d721e1337dd
(script-list): Add phonetic script, covering IPA (previously Latin),
Jason Rumney <jasonr@gnu.org>
parents:
91936
diff
changeset
|
1041 (#x0250 #x02AF phonetic) |
3d721e1337dd
(script-list): Add phonetic script, covering IPA (previously Latin),
Jason Rumney <jasonr@gnu.org>
parents:
91936
diff
changeset
|
1042 (#x02B0 #x036F latin) |
88892 | 1043 (#x0370 #x03E1 greek) |
1044 (#x03E2 #x03EF coptic) | |
1045 (#x03F0 #x03F3 greek) | |
1046 (#x0400 #x04FF cyrillic) | |
1047 (#x0530 #x058F armenian) | |
1048 (#x0590 #x05FF hebrew) | |
1049 (#x0600 #x06FF arabic) | |
1050 (#x0700 #x074F syriac) | |
90591 | 1051 (#x07C0 #x07FA nko) |
88892 | 1052 (#x0780 #x07BF thaana) |
1053 (#x0900 #x097F devanagari) | |
1054 (#x0980 #x09FF bengali) | |
1055 (#x0A00 #x0A7F gurmukhi) | |
1056 (#x0A80 #x0AFF gujarati) | |
1057 (#x0B00 #x0B7F oriya) | |
1058 (#x0B80 #x0BFF tamil) | |
1059 (#x0C00 #x0C7F telugu) | |
1060 (#x0C80 #x0CFF kannada) | |
1061 (#x0D00 #x0D7F malayalam) | |
1062 (#x0D80 #x0DFF sinhala) | |
1063 (#x0E00 #x0E5F thai) | |
1064 (#x0E80 #x0EDF lao) | |
1065 (#x0F00 #x0FFF tibetan) | |
1066 (#x1000 #x105F myanmar) | |
1067 (#x10A0 #x10FF georgian) | |
1068 (#x1100 #x11FF hangul) | |
90535 | 1069 (#x1200 #x139F ethiopic) |
88892 | 1070 (#x13A0 #x13FF cherokee) |
1071 (#x1400 #x167F canadian-aboriginal) | |
1072 (#x1680 #x169F ogham) | |
1073 (#x16A0 #x16FF runic) | |
1074 (#x1780 #x17FF khmer) | |
1075 (#x1800 #x18AF mongolian) | |
93517
3d721e1337dd
(script-list): Add phonetic script, covering IPA (previously Latin),
Jason Rumney <jasonr@gnu.org>
parents:
91936
diff
changeset
|
1076 (#x1D00 #x1DFF phonetic) |
88892 | 1077 (#x1E00 #x1EFF latin) |
1078 (#x1F00 #x1FFF greek) | |
89635
3d2f4775a302
(script-list): Include `currency' in `symbol'.
Kenichi Handa <handa@m17n.org>
parents:
89600
diff
changeset
|
1079 (#x2000 #x27FF symbol) |
88892 | 1080 (#x2800 #x28FF braille) |
90535 | 1081 (#x2D80 #x2DDF ethiopic) |
88892 | 1082 (#x2E80 #x2FDF han) |
1083 (#x2FF0 #x2FFF ideographic-description) | |
1084 (#x3000 #x303F cjk-misc) | |
1085 (#x3040 #x30FF kana) | |
1086 (#x3100 #x312F bopomofo) | |
1087 (#x3130 #x318F hangul) | |
1088 (#x3190 #x319F kanbun) | |
1089 (#x31A0 #x31BF bopomofo) | |
1090 (#x3400 #x9FAF han) | |
1091 (#xA000 #xA4CF yi) | |
91357 | 1092 (#xAA00 #xAA5F cham) |
90945
3046ffe96f58
Setup syntax/category table for Tai Viet.
Kenichi Handa <handa@m17n.org>
parents:
90792
diff
changeset
|
1093 (#xAA80 #xAADF tai-viet) |
88892 | 1094 (#xAC00 #xD7AF hangul) |
89798 | 1095 (#xF900 #xFAFF han) |
88892 | 1096 (#xFB1D #xFB4F hebrew) |
1097 (#xFB50 #xFDFF arabic) | |
1098 (#xFE70 #xFEFC arabic) | |
1099 (#xFF00 #xFF5F cjk-misc) | |
1100 (#xFF61 #xFF9F kana) | |
1101 (#xFFE0 #xFFE6 cjk-misc) | |
90591 | 1102 (#x1D000 #x1D0FF byzantine-musical-symbol) |
1103 (#x1D100 #x1D1FF musical-symbol) | |
1104 (#x1D400 #x1D7FF mathematical) | |
88971
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1105 (#x20000 #x2AFFF han) |
88892 | 1106 (#x2F800 #x2FFFF han))) |
1107 (set-char-table-range char-script-table | |
1108 (cons (car elt) (nth 1 elt)) (nth 2 elt)) | |
1109 (or (memq (nth 2 elt) script-list) | |
1110 (setq script-list (cons (nth 2 elt) script-list)))) | |
1111 (set-char-table-extra-slot char-script-table 0 (nreverse script-list))) | |
1112 | |
89483 | 1113 (map-charset-chars |
89291
b73d29dcc8c0
Make all chararacters in the charset tibetan to tibetan script.
Kenichi Handa <handa@m17n.org>
parents:
89188
diff
changeset
|
1114 #'(lambda (range ignore) |
b73d29dcc8c0
Make all chararacters in the charset tibetan to tibetan script.
Kenichi Handa <handa@m17n.org>
parents:
89188
diff
changeset
|
1115 (set-char-table-range char-script-table range 'tibetan)) |
b73d29dcc8c0
Make all chararacters in the charset tibetan to tibetan script.
Kenichi Handa <handa@m17n.org>
parents:
89188
diff
changeset
|
1116 'tibetan) |
b73d29dcc8c0
Make all chararacters in the charset tibetan to tibetan script.
Kenichi Handa <handa@m17n.org>
parents:
89188
diff
changeset
|
1117 |
88971
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1118 |
17052 | 1119 ;;; Setting word boundary. |
1120 | |
88971
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1121 (defun next-word-boundary-han (pos limit) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1122 (if (<= pos limit) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1123 (save-excursion |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1124 (goto-char pos) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1125 (looking-at "\\cC+") |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1126 (goto-char (match-end 0)) |
88976
fc96b539a43c
(next-word-boundary-han): Don't
Kenichi Handa <handa@m17n.org>
parents:
88971
diff
changeset
|
1127 (if (looking-at "\\cH+") |
88971
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1128 (goto-char (match-end 0))) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1129 (point)) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1130 (while (and (> pos limit) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1131 (eq (aref char-script-table (char-after (1- pos))) 'han)) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1132 (setq pos (1- pos))) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1133 pos)) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1134 |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1135 (defun next-word-boundary-kana (pos limit) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1136 (if (<= pos limit) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1137 (save-excursion |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1138 (goto-char pos) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1139 (if (looking-at "\\cK+") |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1140 (goto-char (match-end 0))) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1141 (if (looking-at "\\cH+") |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1142 (goto-char (match-end 0))) |
89896
5fad4082726a
(next-word-boundary-kana): Handle half-width kana.
Kenichi Handa <handa@m17n.org>
parents:
89798
diff
changeset
|
1143 (if (looking-at "\\ck+") |
5fad4082726a
(next-word-boundary-kana): Handle half-width kana.
Kenichi Handa <handa@m17n.org>
parents:
89798
diff
changeset
|
1144 (goto-char (match-end 0))) |
88971
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1145 (point)) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1146 (let ((category-set (char-category-set (char-after pos))) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1147 category) |
89896
5fad4082726a
(next-word-boundary-kana): Handle half-width kana.
Kenichi Handa <handa@m17n.org>
parents:
89798
diff
changeset
|
1148 (if (or (aref category-set ?K) (aref category-set ?k)) |
88971
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1149 (while (and (> pos limit) |
89896
5fad4082726a
(next-word-boundary-kana): Handle half-width kana.
Kenichi Handa <handa@m17n.org>
parents:
89798
diff
changeset
|
1150 (setq category-set |
5fad4082726a
(next-word-boundary-kana): Handle half-width kana.
Kenichi Handa <handa@m17n.org>
parents:
89798
diff
changeset
|
1151 (char-category-set (char-after (1- pos)))) |
5fad4082726a
(next-word-boundary-kana): Handle half-width kana.
Kenichi Handa <handa@m17n.org>
parents:
89798
diff
changeset
|
1152 (or (aref category-set ?K) (aref category-set ?k))) |
88971
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1153 (setq pos (1- pos))) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1154 (while (and (> pos limit) |
89483 | 1155 (aref (setq category-set |
88971
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1156 (char-category-set (char-after (1- pos)))) ?H)) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1157 (setq pos (1- pos))) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1158 (setq category (cond ((aref category-set ?C) ?C) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1159 ((aref category-set ?K) ?K) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1160 ((aref category-set ?A) ?A))) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1161 (when category |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1162 (setq pos (1- pos)) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1163 (while (and (> pos limit) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1164 (aref (char-category-set (char-after (1- pos))) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1165 category)) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1166 (setq pos (1- pos))))) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1167 pos))) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1168 |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1169 (map-char-table |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1170 #'(lambda (char script) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1171 (cond ((eq script 'han) |
89483 | 1172 (set-char-table-range find-word-boundary-function-table |
88971
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1173 char #'next-word-boundary-han)) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1174 ((eq script 'kana) |
89483 | 1175 (set-char-table-range find-word-boundary-function-table |
88971
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1176 char #'next-word-boundary-kana)))) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1177 char-script-table) |
651b64e6dce3
Call map-charset-chars on big5
Kenichi Handa <handa@m17n.org>
parents:
88892
diff
changeset
|
1178 |
17052 | 1179 (setq word-combining-categories |
71399
00a410533438
(word-combining-categories): Add entries for 2-byte Han characters.
Kenichi Handa <handa@m17n.org>
parents:
69803
diff
changeset
|
1180 '((?l . ?l) |
00a410533438
(word-combining-categories): Add entries for 2-byte Han characters.
Kenichi Handa <handa@m17n.org>
parents:
69803
diff
changeset
|
1181 (?C . ?C) |
00a410533438
(word-combining-categories): Add entries for 2-byte Han characters.
Kenichi Handa <handa@m17n.org>
parents:
69803
diff
changeset
|
1182 (?C . ?H) |
00a410533438
(word-combining-categories): Add entries for 2-byte Han characters.
Kenichi Handa <handa@m17n.org>
parents:
69803
diff
changeset
|
1183 (?C . ?K))) |
17052 | 1184 |
1185 (setq word-separating-categories ; (2-byte character sets) | |
1186 '((?A . ?K) ; Alpha numeric - Katakana | |
1187 (?A . ?C) ; Alpha numeric - Chinese | |
1188 (?H . ?A) ; Hiragana - Alpha numeric | |
1189 (?H . ?K) ; Hiragana - Katakana | |
1190 (?H . ?C) ; Hiragana - Chinese | |
1191 (?K . ?A) ; Katakana - Alpha numeric | |
1192 (?K . ?C) ; Katakana - Chinese | |
1193 (?C . ?A) ; Chinese - Alpha numeric | |
1194 (?C . ?K) ; Chinese - Katakana | |
1195 )) | |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1196 |
84658
d1ea5efb14f2
Fix up comment style.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78310
diff
changeset
|
1197 ;; Local Variables: |
91046 | 1198 ;; coding: utf-8 |
84658
d1ea5efb14f2
Fix up comment style.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78310
diff
changeset
|
1199 ;; End: |
20734
179dbdbc3882
Put `prefered-coding-system'
Kenichi Handa <handa@m17n.org>
parents:
20247
diff
changeset
|
1200 |
84658
d1ea5efb14f2
Fix up comment style.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78310
diff
changeset
|
1201 ;; arch-tag: 85889c35-9f4d-4912-9bf5-82de31b0d42d |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
36688
diff
changeset
|
1202 ;;; characters.el ends here |