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