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