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