?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
*** empty log message ***
[emacs.git] / lisp / international / characters.el
blob68a1fa9ead18947c6f42f15f59c81fa507e70e8e
1 ;;; characters.el --- set syntax and category for multibyte characters
2
3 ;; Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
6
7 ;; Keywords: multibyte character, character set, syntax, category
8
9 ;; This file is part of GNU Emacs.
10
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
14 ;; any later version.
15
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
20
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
25
26 ;;; Commentary:
27
28 ;; This file contains multibyte characters. Save this file always in
29 ;; the coding system `iso-2022-7bit'.
30
31 ;; This file does not define the syntax for Latin-N character sets;
32 ;; those are defined by the files latin-N.el.
33
34 ;;; Code:
35
36 ;;; Predefined categories.
37
38 ;; For each character set.
39
40 (define-category ?a "ASCII")
41 (define-category ?l "Latin")
42 (define-category ?t "Thai")
43 (define-category ?g "Greek")
44 (define-category ?b "Arabic")
45 (define-category ?w "Hebrew")
46 (define-category ?y "Cyrillic")
47 (define-category ?k "Japanese katakana")
48 (define-category ?r "Japanese roman")
49 (define-category ?c "Chinese")
50 (define-category ?j "Japanese")
51 (define-category ?h "Korean")
52 (define-category ?e "Ethiopic (Ge'ez)")
53 (define-category ?v "Vietnamese")
54 (define-category ?i "Indian")
55 (define-category ?o "Lao")
56 (define-category ?q "Tibetan")
57
58 ;; For each group (row) of 2-byte character sets.
59
60 (define-category ?A "Alpha-numeric characters of 2-byte character sets")
61 (define-category ?C "Chinese (Han) characters of 2-byte character sets")
62 (define-category ?G "Greek characters of 2-byte character sets")
63 (define-category ?H "Japanese Hiragana characters of 2-byte character sets")
64 (define-category ?K "Japanese Katakana characters of 2-byte character sets")
65 (define-category ?N "Korean Hangul characters of 2-byte character sets")
66 (define-category ?Y "Cyrillic characters of 2-byte character sets")
67 (define-category ?I "Indian Glyphs")
68
69 ;; For phonetic classifications.
70
71 (define-category ?0 "consonant")
72 (define-category ?1 "base (independent) vowel")
73 (define-category ?2 "upper diacritical mark (including upper vowel)")
74 (define-category ?3 "lower diacritical mark (including lower vowel)")
75 (define-category ?4 "tone mark")
76 (define-category ?5 "symbol")
77 (define-category ?6 "digit")
78 (define-category ?7 "vowel-modifying diacritical mark")
79 (define-category ?8 "vowel-signs")
80 (define-category ?9 "semivowel lower")
81
82 ;; For filling.
83 (define-category ?| "While filling, we can break a line at this character.")
84
85 ;; For indentation calculation.
86 (define-category ?\s
87 "This character counts as a space for indentation purposes.")
88
89 ;; Keep the following for `kinsoku' processing. See comments in
90 ;; kinsoku.el.
91 (define-category ?> "A character which can't be placed at beginning of line.")
92 (define-category ?< "A character which can't be placed at end of line.")
93
94 ;; Combining
95 (define-category ?^ "Combining diacritic or mark")
96 \f
97 ;;; Setting syntax and category.
98
99 ;; ASCII
100
101 (let ((ch 32))
102 (while (< ch 127) ; All ASCII characters have
103 (modify-category-entry ch ?a) ; the category `a' (ASCII)
104 (modify-category-entry ch ?l) ; and `l' (Latin).
105 (setq ch (1+ ch))))
106
107 ;; Arabic character set
108
109 (let ((charsets '(arabic-iso8859-6
110 arabic-digit
111 arabic-1-column
112 arabic-2-column)))
113 (while charsets
114 ;; (modify-syntax-entry (make-char (car charsets)) "w")
115 (modify-category-entry (make-char (car charsets)) ?b)
116 (setq charsets (cdr charsets))))
117 (let ((ch #x600))
118 (while (<= ch #x6ff)
119 (modify-category-entry (decode-char 'ucs ch) ?b)
120 (setq ch (1+ ch)))
121 (setq ch #xfb50)
122 (while (<= ch #xfdff)
123 (modify-category-entry (decode-char 'ucs ch) ?b)
124 (setq ch (1+ ch)))
125 (setq ch #xfe70)
126 (while (<= ch #xfefe)
127 (modify-category-entry (decode-char 'ucs ch) ?b)
128 (setq ch (1+ ch))))
129
130 ;; Chinese character set (GB2312)
131
132 ;; (modify-syntax-entry (make-char 'chinese-gb2312) "w")
133 (modify-syntax-entry (make-char 'chinese-gb2312 33) "_")
134 (modify-syntax-entry (make-char 'chinese-gb2312 34) "_")
135 (modify-syntax-entry (make-char 'chinese-gb2312 41) "_")
136 (modify-syntax-entry ?\\e$A!2\e(B "(\e$A!3\e(B")
137 (modify-syntax-entry ?\\e$A!4\e(B "(\e$A!5\e(B")
138 (modify-syntax-entry ?\\e$A!6\e(B "(\e$A!7\e(B")
139 (modify-syntax-entry ?\\e$A!8\e(B "(\e$A!9\e(B")
140 (modify-syntax-entry ?\\e$A!:\e(B "(\e$A!;\e(B")
141 (modify-syntax-entry ?\\e$A!<\e(B "(\e$A!=\e(B")
142 (modify-syntax-entry ?\\e$A!>\e(B "(\e$A!?\e(B")
143 (modify-syntax-entry ?\\e$A#(\e(B "(\e$A#)\e(B")
144 (modify-syntax-entry ?\\e$A#{\e(B "(\e$A#}\e(B")
145 (modify-syntax-entry ?\\e$A#[\e(B "(\e$A#]\e(B")
146 (modify-syntax-entry ?\\e$A!3\e(B ")\e$A!2\e(B")
147 (modify-syntax-entry ?\\e$A!5\e(B ")\e$A!4\e(B")
148 (modify-syntax-entry ?\\e$A!7\e(B ")\e$A!6\e(B")
149 (modify-syntax-entry ?\\e$A!9\e(B ")\e$A!8\e(B")
150 (modify-syntax-entry ?\\e$A!;\e(B ")\e$A!:\e(B")
151 (modify-syntax-entry ?\\e$A!=\e(B ")\e$A!<\e(B")
152 (modify-syntax-entry ?\\e$A!?\e(B ")\e$A!>\e(B")
153 (modify-syntax-entry ?\\e$A#)\e(B ")\e$A#(\e(B")
154 (modify-syntax-entry ?\\e$A#}\e(B ")\e$A#{\e(B")
155 (modify-syntax-entry ?\\e$A#]\e(B ")\e$A#[\e(B")
156 ;; Unicode equivalents of above
157 (modify-syntax-entry ?\\e$,2=T\e(B "(\e$,2=U\e(B")
158 (modify-syntax-entry ?\\e$,2=H\e(B "(\e$,2=I\e(B")
159 (modify-syntax-entry ?\\e$,2=J\e(B "(\e$,2=K\e(B")
160 (modify-syntax-entry ?\\e$,2=L\e(B "(\e$,2=M\e(B")
161 (modify-syntax-entry ?\\e$,2=N\e(B "(\e$,2=O\e(B")
162 (modify-syntax-entry ?\\e$,2=V\e(B "(\e$,2=W\e(B")
163 (modify-syntax-entry ?\\e$,2=P\e(B "(\e$,2=Q\e(B")
164 (modify-syntax-entry ?\\e$,2=U\e(B ")\e$,2=T\e(B")
165 (modify-syntax-entry ?\\e$,2=I\e(B ")\e$,2=H\e(B")
166 (modify-syntax-entry ?\\e$,2=K\e(B ")\e$,2=J\e(B")
167 (modify-syntax-entry ?\\e$,2=M\e(B ")\e$,2=L\e(B")
168 (modify-syntax-entry ?\\e$,2=O\e(B ")\e$,2=N\e(B")
169 (modify-syntax-entry ?\\e$,2=W\e(B ")\e$,2=V\e(B")
170 (modify-syntax-entry ?\\e$,2=Q\e(B ")\e$,2=P\e(B")
171
172 (let ((chars "\e$A#,!"!##.!$#;#:#?#!!C!-!'#|#_!.!/!0!1#"!e#`!d\e(B"))
173 (dotimes (i (length chars))
174 (modify-syntax-entry (aref chars i) ".")))
175
176 (modify-category-entry (make-char 'chinese-gb2312) ?c)
177 (modify-category-entry (make-char 'chinese-gb2312) ?\|)
178 (modify-category-entry (make-char 'chinese-gb2312 35) ?A)
179 (modify-category-entry (make-char 'chinese-gb2312 36) ?H)
180 (modify-category-entry (make-char 'chinese-gb2312 37) ?K)
181 (modify-category-entry (make-char 'chinese-gb2312 38) ?G)
182 (modify-category-entry (make-char 'chinese-gb2312 39) ?Y)
183 (let ((row 48))
184 (while (< row 127)
185 (modify-category-entry (make-char 'chinese-gb2312 row) ?C)
186 (setq row (1+ row))))
187
188 ;; Chinese character set (BIG5)
189
190
191
192 (let ((from (decode-big5-char #xA141))
193 (to (decode-big5-char #xA15D)))
194 (while (< from to)
195 (modify-syntax-entry from ".")
196 (setq from (1+ from))))
197 (let ((from (decode-big5-char #xA1A5))
198 (to (decode-big5-char #xA1AD)))
199 (while (< from to)
200 (modify-syntax-entry from ".")
201 (setq from (1+ from))))
202 (let ((from (decode-big5-char #xA1AD))
203 (to (decode-big5-char #xA2AF)))
204 (while (< from to)
205 (modify-syntax-entry from "_")
206 (setq from (1+ from))))
207
208 (let ((parens "\e$(0!>!?!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_!`!a!b!c\e(B")
209 open close)
210 (dotimes (i (/ (length parens) 2))
211 (setq open (aref parens (* i 2))
212 close (aref parens (1+ (* i 2))))
213 (modify-syntax-entry open (format "(%c" close))
214 (modify-syntax-entry close (format ")%c" open))))
215
216 (let ((generic-big5-1-char (make-char 'chinese-big5-1))
217 (generic-big5-2-char (make-char 'chinese-big5-2)))
218 ;; (modify-syntax-entry generic-big5-1-char "w")
219 ;; (modify-syntax-entry generic-big5-2-char "w")
220
221 (modify-category-entry generic-big5-1-char ?c)
222 (modify-category-entry generic-big5-2-char ?c)
223
224 (modify-category-entry generic-big5-1-char ?C)
225 (modify-category-entry generic-big5-2-char ?C)
226
227 (modify-category-entry generic-big5-1-char ?\|)
228 (modify-category-entry generic-big5-2-char ?\|))
229
230
231 ;; Chinese character set (CNS11643)
232
233 (let ((cns-list '(chinese-cns11643-1
234 chinese-cns11643-2
235 chinese-cns11643-3
236 chinese-cns11643-4
237 chinese-cns11643-5
238 chinese-cns11643-6
239 chinese-cns11643-7))
240 generic-char)
241 (while cns-list
242 (setq generic-char (make-char (car cns-list)))
243 ;; (modify-syntax-entry generic-char "w")
244 (modify-category-entry generic-char ?c)
245 (modify-category-entry generic-char ?C)
246 (modify-category-entry generic-char ?|)
247 (setq cns-list (cdr cns-list))))
248
249 ;; Cyrillic character set (ISO-8859-5)
250
251 (modify-category-entry (make-char 'cyrillic-iso8859-5) ?y)
252
253 (modify-syntax-entry (make-char 'cyrillic-iso8859-5 160) " ")
254 (modify-syntax-entry ?\e,L-\e(B ".")
255 (modify-syntax-entry ?\e,Lp\e(B ".")
256 (modify-syntax-entry ?\e,L}\e(B ".")
257 (let ((tbl (standard-case-table)))
258 (set-case-syntax-pair ?\e,L!\e(B ?\e,Lq\e(B tbl)
259 (set-case-syntax-pair ?\e,L"\e(B ?\e,Lr\e(B tbl)
260 (set-case-syntax-pair ?\e,L#\e(B ?\e,Ls\e(B tbl)
261 (set-case-syntax-pair ?\e,L$\e(B ?\e,Lt\e(B tbl)
262 (set-case-syntax-pair ?\e,L%\e(B ?\e,Lu\e(B tbl)
263 (set-case-syntax-pair ?\e,L&\e(B ?\e,Lv\e(B tbl)
264 (set-case-syntax-pair ?\e,L'\e(B ?\e,Lw\e(B tbl)
265 (set-case-syntax-pair ?\e,L(\e(B ?\e,Lx\e(B tbl)
266 (set-case-syntax-pair ?\e,L)\e(B ?\e,Ly\e(B tbl)
267 (set-case-syntax-pair ?\e,L*\e(B ?\e,Lz\e(B tbl)
268 (set-case-syntax-pair ?\e,L+\e(B ?\e,L{\e(B tbl)
269 (set-case-syntax-pair ?\e,L,\e(B ?\e,L|\e(B tbl)
270 (set-case-syntax-pair ?\e,L.\e(B ?\e,L~\e(B tbl)
271 (set-case-syntax-pair ?\e,L/\e(B ?\e,L\x7f\e(B tbl)
272 (set-case-syntax-pair ?\e,L0\e(B ?\e,LP\e(B tbl)
273 (set-case-syntax-pair ?\e,L1\e(B ?\e,LQ\e(B tbl)
274 (set-case-syntax-pair ?\e,L2\e(B ?\e,LR\e(B tbl)
275 (set-case-syntax-pair ?\e,L3\e(B ?\e,LS\e(B tbl)
276 (set-case-syntax-pair ?\e,L4\e(B ?\e,LT\e(B tbl)
277 (set-case-syntax-pair ?\e,L5\e(B ?\e,LU\e(B tbl)
278 (set-case-syntax-pair ?\e,L6\e(B ?\e,LV\e(B tbl)
279 (set-case-syntax-pair ?\e,L7\e(B ?\e,LW\e(B tbl)
280 (set-case-syntax-pair ?\e,L8\e(B ?\e,LX\e(B tbl)
281 (set-case-syntax-pair ?\e,L9\e(B ?\e,LY\e(B tbl)
282 (set-case-syntax-pair ?\e,L:\e(B ?\e,LZ\e(B tbl)
283 (set-case-syntax-pair ?\e,L;\e(B ?\e,L[\e(B tbl)
284 (set-case-syntax-pair ?\e,L<\e(B ?\e,L\\e(B tbl)
285 (set-case-syntax-pair ?\e,L=\e(B ?\e,L]\e(B tbl)
286 (set-case-syntax-pair ?\e,L>\e(B ?\e,L^\e(B tbl)
287 (set-case-syntax-pair ?\e,L?\e(B ?\e,L_\e(B tbl)
288 (set-case-syntax-pair ?\e,L@\e(B ?\e,L`\e(B tbl)
289 (set-case-syntax-pair ?\e,LA\e(B ?\e,La\e(B tbl)
290 (set-case-syntax-pair ?\e,LB\e(B ?\e,Lb\e(B tbl)
291 (set-case-syntax-pair ?\e,LC\e(B ?\e,Lc\e(B tbl)
292 (set-case-syntax-pair ?\e,LD\e(B ?\e,Ld\e(B tbl)
293 (set-case-syntax-pair ?\e,LE\e(B ?\e,Le\e(B tbl)
294 (set-case-syntax-pair ?\e,LF\e(B ?\e,Lf\e(B tbl)
295 (set-case-syntax-pair ?\e,LG\e(B ?\e,Lg\e(B tbl)
296 (set-case-syntax-pair ?\e,LH\e(B ?\e,Lh\e(B tbl)
297 (set-case-syntax-pair ?\e,LI\e(B ?\e,Li\e(B tbl)
298 (set-case-syntax-pair ?\e,LJ\e(B ?\e,Lj\e(B tbl)
299 (set-case-syntax-pair ?\e,LK\e(B ?\e,Lk\e(B tbl)
300 (set-case-syntax-pair ?\e,LL\e(B ?\e,Ll\e(B tbl)
301 (set-case-syntax-pair ?\e,LM\e(B ?\e,Lm\e(B tbl)
302 (set-case-syntax-pair ?\e,LN\e(B ?\e,Ln\e(B tbl)
303 (set-case-syntax-pair ?\e,LO\e(B ?\e,Lo\e(B tbl)
304 (set-case-syntax-pair ?\e$,1(!\e(B ?\e$,1(q\e(B tbl)
305 (set-case-syntax-pair ?\e$,1("\e(B ?\e$,1(r\e(B tbl)
306 (set-case-syntax-pair ?\e$,1(#\e(B ?\e$,1(s\e(B tbl)
307 (set-case-syntax-pair ?\e$,1($\e(B ?\e$,1(t\e(B tbl)
308 (set-case-syntax-pair ?\e$,1(%\e(B ?\e$,1(u\e(B tbl)
309 (set-case-syntax-pair ?\e$,1(&\e(B ?\e$,1(v\e(B tbl)
310 (set-case-syntax-pair ?\e$,1('\e(B ?\e$,1(w\e(B tbl)
311 (set-case-syntax-pair ?\e$,1((\e(B ?\e$,1(x\e(B tbl)
312 (set-case-syntax-pair ?\e$,1()\e(B ?\e$,1(y\e(B tbl)
313 (set-case-syntax-pair ?\e$,1(*\e(B ?\e$,1(z\e(B tbl)
314 (set-case-syntax-pair ?\e$,1(+\e(B ?\e$,1({\e(B tbl)
315 (set-case-syntax-pair ?\e$,1(,\e(B ?\e$,1(|\e(B tbl)
316 (set-case-syntax-pair ?\e$,1(.\e(B ?\e$,1(~\e(B tbl)
317 (set-case-syntax-pair ?\e$,1(/\e(B ?\e$,1(\x7f\e(B tbl)
318 (set-case-syntax-pair ?\e$,1(0\e(B ?\e$,1(P\e(B tbl)
319 (set-case-syntax-pair ?\e$,1(1\e(B ?\e$,1(Q\e(B tbl)
320 (set-case-syntax-pair ?\e$,1(2\e(B ?\e$,1(R\e(B tbl)
321 (set-case-syntax-pair ?\e$,1(3\e(B ?\e$,1(S\e(B tbl)
322 (set-case-syntax-pair ?\e$,1(4\e(B ?\e$,1(T\e(B tbl)
323 (set-case-syntax-pair ?\e$,1(5\e(B ?\e$,1(U\e(B tbl)
324 (set-case-syntax-pair ?\e$,1(6\e(B ?\e$,1(V\e(B tbl)
325 (set-case-syntax-pair ?\e$,1(7\e(B ?\e$,1(W\e(B tbl)
326 (set-case-syntax-pair ?\e$,1(8\e(B ?\e$,1(X\e(B tbl)
327 (set-case-syntax-pair ?\e$,1(9\e(B ?\e$,1(Y\e(B tbl)
328 (set-case-syntax-pair ?\e$,1(:\e(B ?\e$,1(Z\e(B tbl)
329 (set-case-syntax-pair ?\e$,1(;\e(B ?\e$,1([\e(B tbl)
330 (set-case-syntax-pair ?\e$,1(<\e(B ?\e$,1(\\e(B tbl)
331 (set-case-syntax-pair ?\e$,1(=\e(B ?\e$,1(]\e(B tbl)
332 (set-case-syntax-pair ?\e$,1(>\e(B ?\e$,1(^\e(B tbl)
333 (set-case-syntax-pair ?\e$,1(?\e(B ?\e$,1(_\e(B tbl)
334 (set-case-syntax-pair ?\e$,1(@\e(B ?\e$,1(`\e(B tbl)
335 (set-case-syntax-pair ?\e$,1(A\e(B ?\e$,1(a\e(B tbl)
336 (set-case-syntax-pair ?\e$,1(B\e(B ?\e$,1(b\e(B tbl)
337 (set-case-syntax-pair ?\e$,1(C\e(B ?\e$,1(c\e(B tbl)
338 (set-case-syntax-pair ?\e$,1(D\e(B ?\e$,1(d\e(B tbl)
339 (set-case-syntax-pair ?\e$,1(E\e(B ?\e$,1(e\e(B tbl)
340 (set-case-syntax-pair ?\e$,1(F\e(B ?\e$,1(f\e(B tbl)
341 (set-case-syntax-pair ?\e$,1(G\e(B ?\e$,1(g\e(B tbl)
342 (set-case-syntax-pair ?\e$,1(H\e(B ?\e$,1(h\e(B tbl)
343 (set-case-syntax-pair ?\e$,1(I\e(B ?\e$,1(i\e(B tbl)
344 (set-case-syntax-pair ?\e$,1(J\e(B ?\e$,1(j\e(B tbl)
345 (set-case-syntax-pair ?\e$,1(K\e(B ?\e$,1(k\e(B tbl)
346 (set-case-syntax-pair ?\e$,1(L\e(B ?\e$,1(l\e(B tbl)
347 (set-case-syntax-pair ?\e$,1(M\e(B ?\e$,1(m\e(B tbl)
348 (set-case-syntax-pair ?\e$,1(N\e(B ?\e$,1(n\e(B tbl)
349 (set-case-syntax-pair ?\e$,1(O\e(B ?\e$,1(o\e(B tbl))
350
351 ;; Devanagari character set
352
353 ;;; Commented out since the categories appear not to be used anywhere
354 ;;; and word syntax is the default.
355 ;; (let ((deflist '(;; chars syntax category
356 ;; ("\e$(5!!!"!#\e(B" "w" ?7) ; vowel-modifying diacritical mark
357 ;; ; chandrabindu, anuswar, visarga
358 ;; ("\e$(5!$\e(B-\e$(5!2\e(B" "w" ?1) ; independent vowel
359 ;; ("\e$(5!3\e(B-\e$(5!X\e(B" "w" ?0) ; consonant
360 ;; ("\e$(5!Z\e(B-\e$(5!g\e(B" "w" ?8) ; matra
361 ;; ("\e$(5!q\e(B-\e$(5!z\e(B" "w" ?6) ; digit
362 ;; ;; Unicode equivalents
363 ;; ("\e$,15A5B5C\e(B" "w" ?7) ; vowel-modifying diacritical mark
364 ;; ; chandrabindu, anuswar, visarga
365 ;; ("\e$,15E\e(B-\e$,15M\e(B" "w" ?1) ; independent vowel
366 ;; ("\e$,15U\e(B-\e$,15y\e(B" "w" ?0) ; consonant
367 ;; ("\e$,15~\e(B-\e$,16)\e(B" "w" ?8) ; matra
368 ;; ("\e$,16F\e(B-\e$,16O\e(B" "w" ?6) ; digit
369 ;; ))
370 ;; elm chars len syntax category to ch i)
371 ;; (while deflist
372 ;; (setq elm (car deflist))
373 ;; (setq chars (car elm)
374 ;; len (length chars)
375 ;; syntax (nth 1 elm)
376 ;; category (nth 2 elm)
377 ;; i 0)
378 ;; (while (< i len)
379 ;; (if (= (aref chars i) ?-)
380 ;; (setq i (1+ i)
381 ;; to (aref chars i))
382 ;; (setq ch (aref chars i)
383 ;; to ch))
384 ;; (while (<= ch to)
385 ;; (modify-syntax-entry ch syntax)
386 ;; (modify-category-entry ch category)
387 ;; (setq ch (1+ ch)))
388 ;; (setq i (1+ i)))
389 ;; (setq deflist (cdr deflist))))
390
391 ;; Ethiopic character set
392
393 (modify-category-entry (make-char 'ethiopic) ?e)
394 ;; (modify-syntax-entry (make-char 'ethiopic) "w")
395 (dotimes (i (1+ (- #x137c #x1200)))
396 (modify-category-entry (decode-char 'ucs (+ #x1200 i)) ?e))
397 (let ((chars '(?\e$(3$h\e(B ?\e$(3$i\e(B ?\e$(3$j\e(B ?\e$(3$k\e(B ?\e$(3$l\e(B ?\e$(3$m\e(B ?\e$(3$n\e(B ?\e$(3$o\e(B ?\e$(3%i\e(B ?\e$(3%t\e(B ?\e$(3%u\e(B ?\e$(3%v\e(B ?\e$(3%w\e(B ?\e$(3%x\e(B
398 ;; Unicode equivalents of the above:
399 ?\e$,1Q!\e(B ?\e$,1Q"\e(B ?\e$,1Q#\e(B ?\e$,1Q$\e(B ?\e$,1Q%\e(B ?\e$,1Q&\e(B ?\e$,1Q'\e(B ?\e$,1Q(\e(B ?\e$,3op\e(B ?\e$,3o{\e(B ?\e$,3o|\e(B ?\e$,3o}\e(B ?\e$,3o~\e(B ?\e$,3o\x7f\e(B)))
400 (while chars
401 (modify-syntax-entry (car chars) ".")
402 (setq chars (cdr chars))))
403
404 ;; Greek character set (ISO-8859-7)
405
406 (modify-category-entry (make-char 'greek-iso8859-7) ?g)
407 (let ((c #x370))
408 (while (<= c #x3ff)
409 (modify-category-entry (decode-char 'ucs c) ?g)
410 (setq c (1+ c))))
411
412 ;; (let ((c 182))
413 ;; (while (< c 255)
414 ;; (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w")
415 ;; (setq c (1+ c))))
416 ;; (modify-syntax-entry (make-char 'greek-iso8859-7 160) "w") ; NBSP
417 (modify-syntax-entry ?\e,F7\e(B ".")
418 (modify-syntax-entry ?\e,F;\e(B ".")
419 (modify-syntax-entry ?\e,F=\e(B ".")
420 (let ((tbl (standard-case-table)))
421 ;; Fixme: non-letter syntax copied from latin-1, but that's dubious
422 ;; in several cases.
423 (set-case-syntax ?\e,F!\e(B "." tbl)
424 (set-case-syntax ?\e,F"\e(B "." tbl)
425 (set-case-syntax ?\e,F&\e(B "." tbl)
426 (set-case-syntax ?\e,F&\e(B "_" tbl)
427 (set-case-syntax ?\e,F'\e(B "." tbl)
428 (set-case-syntax ?\e,F)\e(B "_" tbl)
429 (set-case-syntax ?\e,F+\e(B "." tbl)
430 (set-case-syntax ?\e,F,\e(B "_" tbl)
431 (set-case-syntax ?\e,F-\e(B "_" tbl)
432 (set-case-syntax ?\e,F/\e(B "." tbl)
433 (set-case-syntax ?\e,F0\e(B "_" tbl)
434 (set-case-syntax ?\e,F1\e(B "_" tbl)
435 ;; (set-case-syntax ?\e,F7\e(B "_" tbl)
436 ;; (set-case-syntax ?\e,F=\e(B "_" tbl)
437 (set-case-syntax-pair ?\e,FA\e(B ?\e,Fa\e(B tbl)
438 (set-case-syntax-pair ?\e,FB\e(B ?\e,Fb\e(B tbl)
439 (set-case-syntax-pair ?\e,FC\e(B ?\e,Fc\e(B tbl)
440 (set-case-syntax-pair ?\e,FD\e(B ?\e,Fd\e(B tbl)
441 (set-case-syntax-pair ?\e,FE\e(B ?\e,Fe\e(B tbl)
442 (set-case-syntax-pair ?\e,FF\e(B ?\e,Ff\e(B tbl)
443 (set-case-syntax-pair ?\e,FG\e(B ?\e,Fg\e(B tbl)
444 (set-case-syntax-pair ?\e,FH\e(B ?\e,Fh\e(B tbl)
445 (set-case-syntax-pair ?\e,FI\e(B ?\e,Fi\e(B tbl)
446 (set-case-syntax-pair ?\e,FJ\e(B ?\e,Fj\e(B tbl)
447 (set-case-syntax-pair ?\e,FK\e(B ?\e,Fk\e(B tbl)
448 (set-case-syntax-pair ?\e,FL\e(B ?\e,Fl\e(B tbl)
449 (set-case-syntax-pair ?\e,FM\e(B ?\e,Fm\e(B tbl)
450 (set-case-syntax-pair ?\e,FN\e(B ?\e,Fn\e(B tbl)
451 (set-case-syntax-pair ?\e,FO\e(B ?\e,Fo\e(B tbl)
452 (set-case-syntax-pair ?\e,FP\e(B ?\e,Fp\e(B tbl)
453 (set-case-syntax-pair ?\e,FQ\e(B ?\e,Fq\e(B tbl)
454 (set-case-syntax-pair ?\e,FS\e(B ?\e,Fs\e(B tbl)
455 (set-case-syntax-pair ?\e,FT\e(B ?\e,Ft\e(B tbl)
456 (set-case-syntax-pair ?\e,FU\e(B ?\e,Fu\e(B tbl)
457 (set-case-syntax-pair ?\e,FV\e(B ?\e,Fv\e(B tbl)
458 (set-case-syntax-pair ?\e,FW\e(B ?\e,Fw\e(B tbl)
459 (set-case-syntax-pair ?\e,FX\e(B ?\e,Fx\e(B tbl)
460 (set-case-syntax-pair ?\e,FY\e(B ?\e,Fy\e(B tbl)
461 (set-case-syntax-pair ?\e,FZ\e(B ?\e,Fz\e(B tbl)
462 (set-case-syntax-pair ?\e,F[\e(B ?\e,F{\e(B tbl)
463 (set-case-syntax-pair ?\e,F?\e(B ?\e,F~\e(B tbl)
464 (set-case-syntax-pair ?\e,F>\e(B ?\e,F}\e(B tbl)
465 (set-case-syntax-pair ?\e,F<\e(B ?\e,F|\e(B tbl)
466 (set-case-syntax-pair ?\e,F6\e(B ?\e,F\\e(B tbl)
467 (set-case-syntax-pair ?\e,F8\e(B ?\e,F]\e(B tbl)
468 (set-case-syntax-pair ?\e,F9\e(B ?\e,F^\e(B tbl)
469 (set-case-syntax-pair ?\e,F:\e(B ?\e,F_\e(B tbl)
470 ;; Unicode equivalents
471 (set-case-syntax-pair ?\e$,1&q\e(B ?\e$,1'1\e(B tbl)
472 (set-case-syntax-pair ?\e$,1&r\e(B ?\e$,1'2\e(B tbl)
473 (set-case-syntax-pair ?\e$,1&s\e(B ?\e$,1'3\e(B tbl)
474 (set-case-syntax-pair ?\e$,1&t\e(B ?\e$,1'4\e(B tbl)
475 (set-case-syntax-pair ?\e$,1&u\e(B ?\e$,1'5\e(B tbl)
476 (set-case-syntax-pair ?\e$,1&v\e(B ?\e$,1'6\e(B tbl)
477 (set-case-syntax-pair ?\e$,1&w\e(B ?\e$,1'7\e(B tbl)
478 (set-case-syntax-pair ?\e$,1&x\e(B ?\e$,1'8\e(B tbl)
479 (set-case-syntax-pair ?\e$,1&y\e(B ?\e$,1'9\e(B tbl)
480 (set-case-syntax-pair ?\e$,1&z\e(B ?\e$,1':\e(B tbl)
481 (set-case-syntax-pair ?\e$,1&{\e(B ?\e$,1';\e(B tbl)
482 (set-case-syntax-pair ?\e$,1&|\e(B ?\e$,1'<\e(B tbl)
483 (set-case-syntax-pair ?\e$,1&}\e(B ?\e$,1'=\e(B tbl)
484 (set-case-syntax-pair ?\e$,1&~\e(B ?\e$,1'>\e(B tbl)
485 (set-case-syntax-pair ?\e$,1&\x7f\e(B ?\e$,1'?\e(B tbl)
486 (set-case-syntax-pair ?\e$,1' \e(B ?\e$,1'@\e(B tbl)
487 (set-case-syntax-pair ?\e$,1'!\e(B ?\e$,1'A\e(B tbl)
488 (set-case-syntax-pair ?\e$,1'#\e(B ?\e$,1'C\e(B tbl)
489 (set-case-syntax-pair ?\e$,1'$\e(B ?\e$,1'D\e(B tbl)
490 (set-case-syntax-pair ?\e$,1'%\e(B ?\e$,1'E\e(B tbl)
491 (set-case-syntax-pair ?\e$,1'&\e(B ?\e$,1'F\e(B tbl)
492 (set-case-syntax-pair ?\e$,1''\e(B ?\e$,1'G\e(B tbl)
493 (set-case-syntax-pair ?\e$,1'(\e(B ?\e$,1'H\e(B tbl)
494 (set-case-syntax-pair ?\e$,1')\e(B ?\e$,1'I\e(B tbl)
495 (set-case-syntax-pair ?\e$,1'*\e(B ?\e$,1'J\e(B tbl)
496 (set-case-syntax-pair ?\e$,1'+\e(B ?\e$,1'K\e(B tbl)
497 (set-case-syntax-pair ?\e$,1&o\e(B ?\e$,1'N\e(B tbl)
498 (set-case-syntax-pair ?\e$,1&n\e(B ?\e$,1'M\e(B tbl)
499 (set-case-syntax-pair ?\e$,1&l\e(B ?\e$,1'L\e(B tbl)
500 (set-case-syntax-pair ?\e$,1&f\e(B ?\e$,1',\e(B tbl)
501 (set-case-syntax-pair ?\e$,1&h\e(B ?\e$,1'-\e(B tbl)
502 (set-case-syntax-pair ?\e$,1&i\e(B ?\e$,1'.\e(B tbl)
503 (set-case-syntax-pair ?\e$,1&j\e(B ?\e$,1'/\e(B tbl))
504
505 ;; Hebrew character set (ISO-8859-8)
506
507 (modify-category-entry (make-char 'hebrew-iso8859-8) ?w)
508 (let ((c #x591))
509 (while (<= c #x5f4)
510 (modify-category-entry (decode-char 'ucs c) ?w)
511 (setq c (1+ c))))
512
513 (modify-syntax-entry (make-char 'hebrew-iso8859-8 208) ".") ; PASEQ
514 (modify-syntax-entry (make-char 'hebrew-iso8859-8 211) ".") ; SOF PASUQ
515 (modify-syntax-entry (decode-char 'ucs #x5be) ".") ; MAQAF
516 (modify-syntax-entry (decode-char 'ucs #x5c0) ".") ; PASEQ
517 (modify-syntax-entry (decode-char 'ucs #x5c3) ".") ; SOF PASUQ
518 (modify-syntax-entry (decode-char 'ucs #x5f3) ".") ; GERESH
519 (modify-syntax-entry (decode-char 'ucs #x5f4) ".") ; GERSHAYIM
520
521 ;; (let ((c 224))
522 ;; (while (< c 251)
523 ;; (modify-syntax-entry (make-char 'hebrew-iso8859-8 c) "w")
524 ;; (setq c (1+ c))))
525 ;; (modify-syntax-entry (make-char 'hebrew-iso8859-8 160) "w") ; NBSP
526
527 ;; Indian character set (IS 13194 and other Emacs original Indian charsets)
528
529 (modify-category-entry (make-char 'indian-is13194) ?i)
530 (modify-category-entry (make-char 'indian-2-column) ?I)
531 (modify-category-entry (make-char 'indian-glyph) ?I)
532 ;; Unicode Devanagari block
533 (let ((c #x901))
534 (while (<= c #x970)
535 (modify-category-entry (decode-char 'ucs c) ?i)
536 (setq c (1+ c))))
537
538 (let ((l '(;; RANGE CATEGORY MEANINGS
539 (#x01 #x03 ?7) ; vowel modifier
540 (#x05 #x14 ?1) ; base vowel
541 (#x15 #x39 ?0) ; consonants
542 (#x3e #x4d ?8) ; vowel modifier
543 (#x51 #x54 ?4) ; stress/tone mark
544 (#x58 #x5f ?0) ; consonants
545 (#x60 #x61 ?1) ; base vowel
546 (#x62 #x63 ?8) ; vowel modifier
547 (#x66 #x6f ?6) ; digits
548 )))
549 (dolist (elt1 '(#x900 #x980 #xa00 #xa80 #xb00 #xb80 #xc00 #xc80 #xd00))
550 (dolist (elt2 l)
551 (let* ((from (car elt2))
552 (counts (1+ (- (nth 1 elt2) from)))
553 (category (nth 2 elt2)))
554 (dotimes (i counts)
555 (modify-category-entry (decode-char 'ucs (+ elt1 from i))
556 category))))))
557
558 ;; Japanese character set (JISX0201-kana, JISX0201-roman, JISX0208, JISX0212)
559
560 (modify-category-entry (make-char 'katakana-jisx0201) ?k)
561 (modify-category-entry (make-char 'katakana-jisx0201) ?j)
562 (modify-category-entry (make-char 'latin-jisx0201) ?r)
563 (modify-category-entry (make-char 'japanese-jisx0208) ?j)
564 (modify-category-entry (make-char 'japanese-jisx0212) ?j)
565 (modify-category-entry (make-char 'katakana-jisx0201) ?\|)
566 (modify-category-entry (make-char 'japanese-jisx0208) ?\|)
567 (modify-category-entry (make-char 'japanese-jisx0212) ?\|)
568
569 ;; Unicode equivalents of JISX0201-kana
570 (let ((c #xff61))
571 (while (<= c #xff9f)
572 (modify-category-entry (decode-char 'ucs c) ?k)
573 (modify-category-entry (decode-char 'ucs c) ?j)
574 (modify-category-entry (decode-char 'ucs c) ?\|)
575 (setq c (1+ c))))
576
577 ;; Katakana block
578 (let ((c #x30a0))
579 (while (<= c #x30ff)
580 ;; ?K is double width, ?k isn't specified
581 (modify-category-entry (decode-char 'ucs c) ?k)
582 (modify-category-entry (decode-char 'ucs c) ?j)
583 (modify-category-entry (decode-char 'ucs c) ?\|)
584 (setq c (1+ c))))
585
586 ;; Hiragana block
587 (let ((c #x3040))
588 (while (<= c #x309f)
589 ;; ?H is actually defined to be double width
590 (modify-category-entry (decode-char 'ucs c) ?H)
591 ;;(modify-category-entry (decode-char 'ucs c) ?j)
592 (modify-category-entry (decode-char 'ucs c) ?\|)
593 (setq c (1+ c))))
594
595 ;; JISX0208
596 ;; (modify-syntax-entry (make-char 'japanese-jisx0208) "w")
597 (modify-syntax-entry (make-char 'japanese-jisx0208 33) "_")
598 (modify-syntax-entry (make-char 'japanese-jisx0208 34) "_")
599 (modify-syntax-entry (make-char 'japanese-jisx0208 40) "_")
600 (let ((chars '(?\e$B!<\e(B ?\e$B!+\e(B ?\e$B!,\e(B ?\e$B!3\e(B ?\e$B!4\e(B ?\e$B!5\e(B ?\e$B!6\e(B ?\e$B!7\e(B ?\e$B!8\e(B ?\e$B!9\e(B ?\e$B!:\e(B ?\e$B!;\e(B)))
601 (while chars
602 (modify-syntax-entry (car chars) "w")
603 (setq chars (cdr chars))))
604 (modify-syntax-entry ?\\e$B!J\e(B "(\e$B!K\e(B")
605 (modify-syntax-entry ?\\e$B!N\e(B "(\e$B!O\e(B")
606 (modify-syntax-entry ?\\e$B!P\e(B "(\e$B!Q\e(B")
607 (modify-syntax-entry ?\\e$B!V\e(B "(\e$B!W\e(B")
608 (modify-syntax-entry ?\\e$B!X\e(B "(\e$B!Y\e(B")
609 (modify-syntax-entry ?\\e$B!K\e(B ")\e$B!J\e(B")
610 (modify-syntax-entry ?\\e$B!O\e(B ")\e$B!N\e(B")
611 (modify-syntax-entry ?\\e$B!Q\e(B ")\e$B!P\e(B")
612 (modify-syntax-entry ?\\e$B!W\e(B ")\e$B!V\e(B")
613 (modify-syntax-entry ?\\e$B!Y\e(B ")\e$B!X\e(B")
614
615 (modify-category-entry (make-char 'japanese-jisx0208 35) ?A)
616 (modify-category-entry (make-char 'japanese-jisx0208 36) ?H)
617 (modify-category-entry (make-char 'japanese-jisx0208 37) ?K)
618 (modify-category-entry (make-char 'japanese-jisx0208 38) ?G)
619 (modify-category-entry (make-char 'japanese-jisx0208 39) ?Y)
620 (let ((row 48))
621 (while (< row 127)
622 (modify-category-entry (make-char 'japanese-jisx0208 row) ?C)
623 (setq row (1+ row))))
624 (modify-category-entry ?\e$B!<\e(B ?K)
625 (let ((chars '(?\e$B!+\e(B ?\e$B!,\e(B)))
626 (while chars
627 (modify-category-entry (car chars) ?K)
628 (modify-category-entry (car chars) ?H)
629 (setq chars (cdr chars))))
630 (let ((chars '(?\e$B!3\e(B ?\e$B!4\e(B ?\e$B!5\e(B ?\e$B!6\e(B ?\e$B!7\e(B ?\e$B!8\e(B ?\e$B!9\e(B ?\e$B!:\e(B ?\e$B!;\e(B)))
631 (while chars
632 (modify-category-entry (car chars) ?C)
633 (setq chars (cdr chars))))
634
635 ;; JISX0212
636 ;; (modify-syntax-entry (make-char 'japanese-jisx0212) "w")
637 (modify-syntax-entry (make-char 'japanese-jisx0212 33) "_")
638 (modify-syntax-entry (make-char 'japanese-jisx0212 34) "_")
639 (modify-syntax-entry (make-char 'japanese-jisx0212 35) "_")
640
641 (modify-category-entry (make-char 'japanese-jisx0212 ) ?C)
642
643 ;; JISX0201-Kana
644 ;; (modify-syntax-entry (make-char 'katakana-jisx0201) "w")
645 (let ((chars '(?\e(I!\e(B ?\e(I$\e(B ?\e(I%\e(B
646 ;; Unicode:
647 ?\e$,3sa\e(B ?\e$,3sd\e(B ?\e$,3se\e(B)))
648 (while chars
649 (modify-syntax-entry (car chars) ".")
650 (setq chars (cdr chars))))
651
652 (modify-syntax-entry ?\\e(I"\e(B "(\e(I#\e(B")
653 (modify-syntax-entry ?\\e(I#\e(B "(\e(I"\e(B")
654
655 ;; Korean character set (KSC5601)
656
657 ;; (modify-syntax-entry (make-char 'korean-ksc5601) "w")
658 (modify-syntax-entry (make-char 'korean-ksc5601 33) "_")
659 (modify-syntax-entry (make-char 'korean-ksc5601 34) "_")
660 (modify-syntax-entry (make-char 'korean-ksc5601 38) "_")
661 (modify-syntax-entry (make-char 'korean-ksc5601 39) "_")
662 (modify-syntax-entry (make-char 'korean-ksc5601 40) "_")
663 (modify-syntax-entry (make-char 'korean-ksc5601 41) "_")
664
665 (modify-category-entry (make-char 'korean-ksc5601) ?h)
666 (modify-category-entry (make-char 'korean-ksc5601 35) ?A)
667 (modify-category-entry (make-char 'korean-ksc5601 37) ?G)
668 (modify-category-entry (make-char 'korean-ksc5601 42) ?H)
669 (modify-category-entry (make-char 'korean-ksc5601 43) ?K)
670 (modify-category-entry (make-char 'korean-ksc5601 44) ?Y)
671
672 ;; Latin character set (latin-1,2,3,4,5,8,9)
673
674 (modify-category-entry (make-char 'latin-iso8859-1) ?l)
675 (modify-category-entry (make-char 'latin-iso8859-2) ?l)
676 (modify-category-entry (make-char 'latin-iso8859-3) ?l)
677 (modify-category-entry (make-char 'latin-iso8859-4) ?l)
678 (modify-category-entry (make-char 'latin-iso8859-9) ?l)
679 (modify-category-entry (make-char 'latin-iso8859-14) ?l)
680 (modify-category-entry (make-char 'latin-iso8859-15) ?l)
681
682 (modify-category-entry (make-char 'latin-iso8859-1 160) ?\ )
683 (modify-category-entry (make-char 'latin-iso8859-2 160) ?\ )
684 (modify-category-entry (make-char 'latin-iso8859-3 160) ?\ )
685 (modify-category-entry (make-char 'latin-iso8859-4 160) ?\ )
686 (modify-category-entry (make-char 'latin-iso8859-9 160) ?\ )
687 (modify-category-entry (make-char 'latin-iso8859-14 160) ?\ )
688 (modify-category-entry (make-char 'latin-iso8859-15 160) ?\ )
689
690 ;; Lao character set
691
692 (modify-category-entry (make-char 'lao) ?o)
693 (dotimes (i (1+ (- #xeff #xe80)))
694 (modify-category-entry (decode-char 'ucs (+ i #xe80)) ?o))
695
696 (let ((deflist '(;; chars syntax category
697 ("\e(1!\e(B-\e(1N\e(B" "w" ?0) ; consonant
698 ("\e(1PRS]`\e(B-\e(1d\e(B" "w" ?1) ; vowel base
699 ("\e(1QT\e(B-\e(1W[m\e(B" "w" ?2) ; vowel upper
700 ("\e(1XY\e(B" "w" ?3) ; vowel lower
701 ("\e(1h\e(B-\e(1l\e(B" "w" ?4) ; tone mark
702 ("\e(1\\e(B" "w" ?9) ; semivowel lower
703 ("\e(1p\e(B-\e(1y\e(B" "w" ?6) ; digit
704 ("\e(1Of\e(B" "_" ?5) ; symbol
705 ;; Unicode equivalents
706 ("\e$,1D!\e(B-\e$,1DN\e(B" "w" ?0) ; consonant
707 ("\e$,1DPDRDSD]D`\e(B-\e$,1Dd\e(B" "w" ?1) ; vowel base
708 ("\e$,1DQDT\e(B-\e$,1DWD[Dm\e(B" "w" ?2) ; vowel upper
709 ("\e$,1DXDY\e(B" "w" ?3) ; vowel lower
710 ("\e$,1Dh\e(B-\e$,1Dk\e(B" "w" ?4) ; tone mark
711 ("\e$,1D\D]\e(B" "w" ?9) ; semivowel lower
712 ("\e$,1Dp\e(B-\e$,1Dy\e(B" "w" ?6) ; digit
713 ("\e$,1DODf\e(B" "_" ?5) ; symbol
714 ))
715 elm chars len syntax category to ch i)
716 (while deflist
717 (setq elm (car deflist))
718 (setq chars (car elm)
719 len (length chars)
720 syntax (nth 1 elm)
721 category (nth 2 elm)
722 i 0)
723 (while (< i len)
724 (if (= (aref chars i) ?-)
725 (setq i (1+ i)
726 to (aref chars i))
727 (setq ch (aref chars i)
728 to ch))
729 (while (<= ch to)
730 (unless (string-equal syntax "w")
731 (modify-syntax-entry ch syntax))
732 (modify-category-entry ch category)
733 (setq ch (1+ ch)))
734 (setq i (1+ i)))
735 (setq deflist (cdr deflist))))
736
737 ;; Thai character set (TIS620)
738
739 (modify-category-entry (make-char 'thai-tis620) ?t)
740 (dotimes (i (1+ (- #xe7f #xe00)))
741 (modify-category-entry (decode-char 'ucs (+ i #xe00)) ?t))
742
743 (let ((deflist '(;; chars syntax category
744 ("\e,T!\e(B-\e,TCEG\e(B-\e,TN\e(B" "w" ?0) ; consonant
745 ("\e,TDFPRS`\e(B-\e,Te\e(B" "w" ?1) ; vowel base
746 ("\e,TQT\e(B-\e,TWgn\e(B" "w" ?2) ; vowel upper
747 ("\e,TX\e(B-\e,TZ\e(B" "w" ?3) ; vowel lower
748 ("\e,Th\e(B-\e,Tm\e(B" "w" ?4) ; tone mark
749 ("\e,Tp\e(B-\e,Ty\e(B" "w" ?6) ; digit
750 ("\e,TOf_oz{\e(B" "_" ?5) ; symbol
751 ;; Unicode equivalents
752 ("\e$,1Ba\e(B-\e$,1C#C%C'\e(B-\e$,1C.\e(B" "w" ?0) ; consonant
753 ("\e$,1C$C&C0C2C3C@\e(B-\e$,1CE\e(B" "w" ?1) ; vowel base
754 ("\e$,1C1C4\e(B-\e$,1C7CGCN\e(B" "w" ?2) ; vowel upper
755 ("\e$,1C8\e(B-\e$,1C:\e(B" "w" ?3) ; vowel lower
756 ("\e$,1CH\e(B-\e$,1CM\e(B" "w" ?4) ; tone mark
757 ("\e$,1CP\e(B-\e$,1CY\e(B" "w" ?6) ; digit
758 ("\e$,1C/CFC?COCZC[\e(B" "_" ?5) ; symbol
759 ))
760 elm chars len syntax category to ch i)
761 (while deflist
762 (setq elm (car deflist))
763 (setq chars (car elm)
764 len (length chars)
765 syntax (nth 1 elm)
766 category (nth 2 elm)
767 i 0)
768 (while (< i len)
769 (if (= (aref chars i) ?-)
770 (setq i (1+ i)
771 to (aref chars i))
772 (setq ch (aref chars i)
773 to ch))
774 (while (<= ch to)
775 (unless (string-equal syntax "w")
776 (modify-syntax-entry ch syntax))
777 (modify-category-entry ch category)
778 (setq ch (1+ ch)))
779 (setq i (1+ i)))
780 (setq deflist (cdr deflist))))
781
782 ;; Tibetan character set
783
784 (modify-category-entry (make-char 'tibetan) ?q)
785 (modify-category-entry (make-char 'tibetan-1-column) ?q)
786 (dotimes (i (1+ (- #xfff #xf00)))
787 (modify-category-entry (decode-char 'ucs (+ i #xf00)) ?q))
788
789 (let ((deflist '(;; chars syntax category
790 ("\e4\e$(7"!\e0"!\e1\e(B-\e4\e$(7"J\e0"J\e1\e4"K\e0"K\e1\e(B" "w" ?0) ; consonant
791 ("\e$(7#!\e(B-\e$(7#J#K#L#M!"!#\e(B" "w" ?0) ;
792 ("\e$(7$!\e(B-\e$(7$e\e(B" "w" ?0) ;
793 ("\e$(7%!\e(B-\e$(7%u\e(B" "w" ?0) ;
794 ("\e$(7"S"["\"]"^"a\e(B" "w" ?2) ; upper vowel
795 ("\e$(7"_"c"d"g"h"i"j"k"l\e(B" "w" ?2) ; upper modifier
796 ("\e$(7!I"Q"R"U"e!e!g\e(B" "w" ?3) ; lowel vowel/modifier
797 ("\e$(7!P\e(B-\e$(7!Y!Z\e(B-\e$(7!c\e(B" "w" ?6) ; digit
798 ("\e$(7!;!=\e(B-\e$(7!B!D"`\e(B" "." ?|) ; line-break char
799 ("\e$(8!;!=!?!@!A!D"`\e(B" "." ?|) ;
800 ("\e$(7!8!;!=\e(B-\e$(7!B!D"`!m!d\e(B" "." ?>) ; prohibition
801 ("\e$(8!;!=!?!@!A!D"`\e(B" "." ?>) ;
802 ("\e$(7!0\e(B-\e$(7!:!l#R#S"f\e(B" "." ?<) ; prohibition
803 ("\e$(7!C!E\e(B-\e$(7!H!J\e(B-\e$(7!O!f!h\e(B-\e$(7!k!n!o#O#P\e(B-\e$(7#`\e(B" "." ?q) ; others
804
805 ;; Unicode version (not complete)
806 ("\e$,1F \e(B-\e$,1FIFJ\e(B" "w" ?0) ; consonant
807 ("\e$,1Fp\e(B-\e$,1G9G:G;G<\e(B" "w" ?0) ;
808 ("\e$,1FRFZF[F\F]F`\e(B" "w" ?2) ; upper vowel
809 ("\e$,1F^FbFcFfFgFhFiFjFk\e(B" "w" ?2) ; upper modifier
810 ("\e$,1EYFPFQFTFdEuEw\e(B" "w" ?3) ; lowel vowel/modifier
811 ("\e$,1E`\e(B-\e$,1EiEj\e(B-\e$,1Es\e(B" "w" ?6) ; digit
812 ("\e$,1EKEM\e(B-\e$,1ERETF_\e(B" "." ?|) ; line-break char
813 ("\e$,1EHEKEM\e(B-\e$,1ERETF_E}Et\e(B" "." ?>) ; prohibition
814 ("\e$,1E@\e(B-\e$,1EJE|GAGBFe\e(B" "." ?<) ; prohibition
815 ("\e$,1ESEU\e(B-\e$,1EXEZ\e(B-\e$,1E_EvEx\e(B-\e$,1E{E~E\x7fG>G?\e(B-\e$,1GO\e(B" "." ?q) ; others
816 ))
817 elm chars len syntax category to ch i)
818 (while deflist
819 (setq elm (car deflist))
820 (setq chars (car elm)
821 len (length chars)
822 syntax (nth 1 elm)
823 category (nth 2 elm)
824 i 0)
825 (while (< i len)
826 (if (= (aref chars i) ?-)
827 (setq i (1+ i)
828 to (aref chars i))
829 (setq ch (aref chars i)
830 to ch))
831 (while (<= ch to)
832 (unless (string-equal syntax "w")
833 (modify-syntax-entry ch syntax))
834 (modify-category-entry ch category)
835 (setq ch (1+ ch)))
836 (setq i (1+ i)))
837 (setq deflist (cdr deflist))))
838
839 ;; Vietnamese character set
840
841 (let ((lower (make-char 'vietnamese-viscii-lower))
842 (upper (make-char 'vietnamese-viscii-upper)))
843 ;; (modify-syntax-entry lower "w")
844 ;; (modify-syntax-entry upper "w")
845 (modify-category-entry lower ?v)
846 (modify-category-entry upper ?v)
847 (modify-category-entry lower ?l) ; To make a word with
848 (modify-category-entry upper ?l) ; latin characters.
849 )
850
851 (let ((tbl (standard-case-table))
852 (i 32))
853 (while (< i 128)
854 (set-case-syntax-pair (make-char 'vietnamese-viscii-upper i)
855 (make-char 'vietnamese-viscii-lower i)
856 tbl)
857 (setq i (1+ i))))
858
859 ;; Unicode (mule-unicode-0100-24ff)
860
861 (let ((tbl (standard-case-table)) c)
862
863 ;; In some languages, U+0049 LATIN CAPITAL LETTER I and U+0131 LATIN
864 ;; SMALL LETTER DOTLESS I make a case pair, and so do U+0130 LATIN
865 ;; CAPITAL LETTER I WITH DOT ABOVE and U+0069 LATIN SMALL LETTER I.
866 ;; Thus we have to check language-environment to handle casing
867 ;; correctly. Currently only I<->i is available.
868
869 ;; Latin Extended-A, Latin Extended-B
870 (setq c #x0100)
871 (while (<= c #x0233)
872 (modify-category-entry (decode-char 'ucs c) ?l)
873 (and (or (<= c #x012e)
874 (and (>= c #x014a) (<= c #x0177)))
875 (zerop (% c 2))
876 (set-case-syntax-pair
877 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl))
878 (and (>= c #x013a)
879 (<= c #x0148)
880 (zerop (% c 2))
881 (set-case-syntax-pair
882 (decode-char 'ucs (1- c)) (decode-char 'ucs c) tbl))
883 (setq c (1+ c)))
884 (set-case-syntax-pair ?\e$,1 R\e(B ?\e$,1 S\e(B tbl)
885 (set-case-syntax-pair ?\e$,1 T\e(B ?\e$,1 U\e(B tbl)
886 (set-case-syntax-pair ?\e$,1 V\e(B ?\e$,1 W\e(B tbl)
887 ;;; (set-case-syntax-pair ?\e$,1!8\e(B ?\e,A\x7f\e(B tbl) ; these two have different length!
888 (set-case-syntax-pair ?\e$,1!9\e(B ?\e$,1!:\e(B tbl)
889 (set-case-syntax-pair ?\e$,1!;\e(B ?\e$,1!<\e(B tbl)
890 (set-case-syntax-pair ?\e$,1!=\e(B ?\e$,1!>\e(B tbl)
891
892 ;; Latin Extended-B
893 (set-case-syntax-pair ?\e$,1!A\e(B ?\e$,1#S\e(B tbl)
894 (set-case-syntax-pair ?\e$,1!B\e(B ?\e$,1!C\e(B tbl)
895 (set-case-syntax-pair ?\e$,1!D\e(B ?\e$,1!E\e(B tbl)
896 (set-case-syntax-pair ?\e$,1!F\e(B ?\e$,1#T\e(B tbl)
897 (set-case-syntax-pair ?\e$,1!G\e(B ?\e$,1!H\e(B tbl)
898 (set-case-syntax-pair ?\e$,1!I\e(B ?\e$,1#V\e(B tbl)
899 (set-case-syntax-pair ?\e$,1!J\e(B ?\e$,1#W\e(B tbl)
900 (set-case-syntax-pair ?\e$,1!K\e(B ?\e$,1!L\e(B tbl)
901 (set-case-syntax-pair ?\e$,1!N\e(B ?\e$,1"=\e(B tbl)
902 (set-case-syntax-pair ?\e$,1!O\e(B ?\e$,1#Y\e(B tbl)
903 (set-case-syntax-pair ?\e$,1!P\e(B ?\e$,1#[\e(B tbl)
904 (set-case-syntax-pair ?\e$,1!Q\e(B ?\e$,1!R\e(B tbl)
905 (set-case-syntax-pair ?\e$,1!S\e(B ?\e$,1#`\e(B tbl)
906 (set-case-syntax-pair ?\e$,1!T\e(B ?\e$,1#c\e(B tbl)
907 (set-case-syntax-pair ?\e$,1!V\e(B ?\e$,1#i\e(B tbl)
908 (set-case-syntax-pair ?\e$,1!W\e(B ?\e$,1#h\e(B tbl)
909 (set-case-syntax-pair ?\e$,1!X\e(B ?\e$,1!Y\e(B tbl)
910 (set-case-syntax-pair ?\e$,1!\\e(B ?\e$,1#o\e(B tbl)
911 (set-case-syntax-pair ?\e$,1!]\e(B ?\e$,1#r\e(B tbl)
912 (set-case-syntax-pair ?\e$,1!_\e(B ?\e$,1#u\e(B tbl)
913 (set-case-syntax-pair ?\e$,1!`\e(B ?\e$,1!a\e(B tbl)
914 (set-case-syntax-pair ?\e$,1!b\e(B ?\e$,1!c\e(B tbl)
915 (set-case-syntax-pair ?\e$,1!d\e(B ?\e$,1!e\e(B tbl)
916 (set-case-syntax-pair ?\e$,1!f\e(B ?\e$,1$ \e(B tbl)
917 (set-case-syntax-pair ?\e$,1!g\e(B ?\e$,1!h\e(B tbl)
918 (set-case-syntax-pair ?\e$,1!i\e(B ?\e$,1$#\e(B tbl)
919 (set-case-syntax-pair ?\e$,1!l\e(B ?\e$,1!m\e(B tbl)
920 (set-case-syntax-pair ?\e$,1!n\e(B ?\e$,1$(\e(B tbl)
921 (set-case-syntax-pair ?\e$,1!o\e(B ?\e$,1!p\e(B tbl)
922 (set-case-syntax-pair ?\e$,1!q\e(B ?\e$,1$*\e(B tbl)
923 (set-case-syntax-pair ?\e$,1!r\e(B ?\e$,1$+\e(B tbl)
924 (set-case-syntax-pair ?\e$,1!s\e(B ?\e$,1!t\e(B tbl)
925 (set-case-syntax-pair ?\e$,1!u\e(B ?\e$,1!v\e(B tbl)
926 (set-case-syntax-pair ?\e$,1!w\e(B ?\e$,1$2\e(B tbl)
927 (set-case-syntax-pair ?\e$,1!x\e(B ?\e$,1!y\e(B tbl)
928 (set-case-syntax-pair ?\e$,1!|\e(B ?\e$,1!}\e(B tbl)
929 (set-case-syntax-pair ?\e$,1"$\e(B ?\e$,1"&\e(B tbl)
930 (set-case-syntax-pair ?\e$,1"%\e(B ?\e$,1"&\e(B tbl)
931 (set-case-syntax-pair ?\e$,1"'\e(B ?\e$,1")\e(B tbl)
932 (set-case-syntax-pair ?\e$,1"(\e(B ?\e$,1")\e(B tbl)
933 (set-case-syntax-pair ?\e$,1"*\e(B ?\e$,1",\e(B tbl)
934 (set-case-syntax-pair ?\e$,1"+\e(B ?\e$,1",\e(B tbl)
935 (set-case-syntax-pair ?\e$,1"-\e(B ?\e$,1".\e(B tbl)
936 (set-case-syntax-pair ?\e$,1"/\e(B ?\e$,1"0\e(B tbl)
937 (set-case-syntax-pair ?\e$,1"1\e(B ?\e$,1"2\e(B tbl)
938 (set-case-syntax-pair ?\e$,1"3\e(B ?\e$,1"4\e(B tbl)
939 (set-case-syntax-pair ?\e$,1"5\e(B ?\e$,1"6\e(B tbl)
940 (set-case-syntax-pair ?\e$,1"7\e(B ?\e$,1"8\e(B tbl)
941 (set-case-syntax-pair ?\e$,1"9\e(B ?\e$,1":\e(B tbl)
942 (set-case-syntax-pair ?\e$,1";\e(B ?\e$,1"<\e(B tbl)
943 (set-case-syntax-pair ?\e$,1">\e(B ?\e$,1"?\e(B tbl)
944 (set-case-syntax-pair ?\e$,1"@\e(B ?\e$,1"A\e(B tbl)
945 (set-case-syntax-pair ?\e$,1"B\e(B ?\e$,1"C\e(B tbl)
946 (set-case-syntax-pair ?\e$,1"D\e(B ?\e$,1"E\e(B tbl)
947 (set-case-syntax-pair ?\e$,1"F\e(B ?\e$,1"G\e(B tbl)
948 (set-case-syntax-pair ?\e$,1"H\e(B ?\e$,1"I\e(B tbl)
949 (set-case-syntax-pair ?\e$,1"J\e(B ?\e$,1"K\e(B tbl)
950 (set-case-syntax-pair ?\e$,1"L\e(B ?\e$,1"M\e(B tbl)
951 (set-case-syntax-pair ?\e$,1"N\e(B ?\e$,1"O\e(B tbl)
952 ;; 01F0; F; 006A 030C; # LATIN SMALL LETTER J WITH CARON
953 (set-case-syntax-pair ?\e$,1"Q\e(B ?\e$,1"S\e(B tbl)
954 (set-case-syntax-pair ?\e$,1"R\e(B ?\e$,1"S\e(B tbl)
955 (set-case-syntax-pair ?\e$,1"T\e(B ?\e$,1"U\e(B tbl)
956 (set-case-syntax-pair ?\e$,1"V\e(B ?\e$,1!U\e(B tbl)
957 (set-case-syntax-pair ?\e$,1"W\e(B ?\e$,1!\x7f\e(B tbl)
958 (set-case-syntax-pair ?\e$,1"X\e(B ?\e$,1"Y\e(B tbl)
959 (set-case-syntax-pair ?\e$,1"Z\e(B ?\e$,1"[\e(B tbl)
960 (set-case-syntax-pair ?\e$,1"\\e(B ?\e$,1"]\e(B tbl)
961 (set-case-syntax-pair ?\e$,1"^\e(B ?\e$,1"_\e(B tbl)
962 (set-case-syntax-pair ?\e$,1"`\e(B ?\e$,1"a\e(B tbl)
963 (set-case-syntax-pair ?\e$,1"b\e(B ?\e$,1"c\e(B tbl)
964 (set-case-syntax-pair ?\e$,1"d\e(B ?\e$,1"e\e(B tbl)
965 (set-case-syntax-pair ?\e$,1"f\e(B ?\e$,1"g\e(B tbl)
966 (set-case-syntax-pair ?\e$,1"h\e(B ?\e$,1"i\e(B tbl)
967 (set-case-syntax-pair ?\e$,1"j\e(B ?\e$,1"k\e(B tbl)
968 (set-case-syntax-pair ?\e$,1"l\e(B ?\e$,1"m\e(B tbl)
969 (set-case-syntax-pair ?\e$,1"n\e(B ?\e$,1"o\e(B tbl)
970 (set-case-syntax-pair ?\e$,1"p\e(B ?\e$,1"q\e(B tbl)
971 (set-case-syntax-pair ?\e$,1"r\e(B ?\e$,1"s\e(B tbl)
972 (set-case-syntax-pair ?\e$,1"t\e(B ?\e$,1"u\e(B tbl)
973 (set-case-syntax-pair ?\e$,1"v\e(B ?\e$,1"w\e(B tbl)
974 (set-case-syntax-pair ?\e$,1"x\e(B ?\e$,1"y\e(B tbl)
975 (set-case-syntax-pair ?\e$,1"z\e(B ?\e$,1"{\e(B tbl)
976 (set-case-syntax-pair ?\e$,1"|\e(B ?\e$,1"}\e(B tbl)
977 (set-case-syntax-pair ?\e$,1"~\e(B ?\e$,1"\x7f\e(B tbl)
978 (set-case-syntax-pair ?\e$,1#"\e(B ?\e$,1##\e(B tbl)
979 (set-case-syntax-pair ?\e$,1#$\e(B ?\e$,1#%\e(B tbl)
980 (set-case-syntax-pair ?\e$,1#&\e(B ?\e$,1#'\e(B tbl)
981 (set-case-syntax-pair ?\e$,1#(\e(B ?\e$,1#)\e(B tbl)
982 (set-case-syntax-pair ?\e$,1#*\e(B ?\e$,1#+\e(B tbl)
983 (set-case-syntax-pair ?\e$,1#,\e(B ?\e$,1#-\e(B tbl)
984 (set-case-syntax-pair ?\e$,1#.\e(B ?\e$,1#/\e(B tbl)
985 (set-case-syntax-pair ?\e$,1#0\e(B ?\e$,1#1\e(B tbl)
986 (set-case-syntax-pair ?\e$,1#2\e(B ?\e$,1#3\e(B tbl)
987
988 ;; Latin Extended Additional
989 (setq c #x1e00)
990 (while (<= c #x1ef9)
991 (modify-category-entry (decode-char 'ucs c) ?l)
992 (and (zerop (% c 2))
993 (or (<= c #x1e94) (>= c #x1ea0))
994 (set-case-syntax-pair
995 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl))
996 (setq c (1+ c)))
997
998 ;; Greek
999 (setq c #x0370)
1000 (while (<= c #x03ff)
1001 (modify-category-entry (decode-char 'ucs c) ?g)
1002 (if (or (and (>= c #x0391) (<= c #x03a1))
1003 (and (>= c #x03a3) (<= c #x03ab)))
1004 (set-case-syntax-pair
1005 (decode-char 'ucs c) (decode-char 'ucs (+ c 32)) tbl))
1006 (and (>= c #x03da)
1007 (<= c #x03ee)
1008 (zerop (% c 2))
1009 (set-case-syntax-pair
1010 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl))
1011 (setq c (1+ c)))
1012 (set-case-syntax-pair ?\e$,1&f\e(B ?\e$,1',\e(B tbl)
1013 (set-case-syntax-pair ?\e$,1&h\e(B ?\e$,1'-\e(B tbl)
1014 (set-case-syntax-pair ?\e$,1&i\e(B ?\e$,1'.\e(B tbl)
1015 (set-case-syntax-pair ?\e$,1&j\e(B ?\e$,1'/\e(B tbl)
1016 (set-case-syntax-pair ?\e$,1&l\e(B ?\e$,1'L\e(B tbl)
1017 (set-case-syntax-pair ?\e$,1&n\e(B ?\e$,1'M\e(B tbl)
1018 (set-case-syntax-pair ?\e$,1&o\e(B ?\e$,1'N\e(B tbl)
1019
1020 ;; Armenian
1021 (setq c #x531)
1022 (while (<= c #x556)
1023 (set-case-syntax-pair (decode-char 'ucs c)
1024 (decode-char 'ucs (+ c #x30)) tbl)
1025 (setq c (1+ c)))
1026
1027 ;; Greek Extended
1028 (setq c #x1f00)
1029 (while (<= c #x1fff)
1030 (modify-category-entry (decode-char 'ucs c) ?g)
1031 (and (<= (logand c #x000f) 7)
1032 (<= c #x1fa7)
1033 (not (memq c '(#x1f50 #x1f52 #x1f54 #x1f56)))
1034 (/= (logand c #x00f0) 7)
1035 (set-case-syntax-pair
1036 (decode-char 'ucs (+ c 8)) (decode-char 'ucs c) tbl))
1037 (setq c (1+ c)))
1038 (set-case-syntax-pair ?\e$,1qx\e(B ?\e$,1qp\e(B tbl)
1039 (set-case-syntax-pair ?\e$,1qy\e(B ?\e$,1qq\e(B tbl)
1040 (set-case-syntax-pair ?\e$,1qz\e(B ?\e$,1q0\e(B tbl)
1041 (set-case-syntax-pair ?\e$,1q{\e(B ?\e$,1q1\e(B tbl)
1042 (set-case-syntax-pair ?\e$,1q|\e(B ?\e$,1qs\e(B tbl)
1043 (set-case-syntax-pair ?\e$,1r(\e(B ?\e$,1q2\e(B tbl)
1044 (set-case-syntax-pair ?\e$,1r)\e(B ?\e$,1q3\e(B tbl)
1045 (set-case-syntax-pair ?\e$,1r*\e(B ?\e$,1q4\e(B tbl)
1046 (set-case-syntax-pair ?\e$,1r+\e(B ?\e$,1q5\e(B tbl)
1047 (set-case-syntax-pair ?\e$,1r,\e(B ?\e$,1r#\e(B tbl)
1048 (set-case-syntax-pair ?\e$,1r8\e(B ?\e$,1r0\e(B tbl)
1049 (set-case-syntax-pair ?\e$,1r9\e(B ?\e$,1r1\e(B tbl)
1050 (set-case-syntax-pair ?\e$,1r:\e(B ?\e$,1q6\e(B tbl)
1051 (set-case-syntax-pair ?\e$,1r;\e(B ?\e$,1q7\e(B tbl)
1052 (set-case-syntax-pair ?\e$,1rH\e(B ?\e$,1r@\e(B tbl)
1053 (set-case-syntax-pair ?\e$,1rI\e(B ?\e$,1rA\e(B tbl)
1054 (set-case-syntax-pair ?\e$,1rJ\e(B ?\e$,1q:\e(B tbl)
1055 (set-case-syntax-pair ?\e$,1rK\e(B ?\e$,1q;\e(B tbl)
1056 (set-case-syntax-pair ?\e$,1rL\e(B ?\e$,1rE\e(B tbl)
1057 (set-case-syntax-pair ?\e$,1rX\e(B ?\e$,1q8\e(B tbl)
1058 (set-case-syntax-pair ?\e$,1rY\e(B ?\e$,1q9\e(B tbl)
1059 (set-case-syntax-pair ?\e$,1rZ\e(B ?\e$,1q<\e(B tbl)
1060 (set-case-syntax-pair ?\e$,1r[\e(B ?\e$,1q=\e(B tbl)
1061 (set-case-syntax-pair ?\e$,1r\\e(B ?\e$,1rS\e(B tbl)
1062
1063 ;; cyrillic
1064 (setq c #x0400)
1065 (while (<= c #x04ff)
1066 (modify-category-entry (decode-char 'ucs c) ?y)
1067 (and (>= c #x0400)
1068 (<= c #x040f)
1069 (set-case-syntax-pair
1070 (decode-char 'ucs c) (decode-char 'ucs (+ c 80)) tbl))
1071 (and (>= c #x0410)
1072 (<= c #x042f)
1073 (set-case-syntax-pair
1074 (decode-char 'ucs c) (decode-char 'ucs (+ c 32)) tbl))
1075 (and (zerop (% c 2))
1076 (or (and (>= c #x0460) (<= c #x0480))
1077 (and (>= c #x048c) (<= c #x04be))
1078 (and (>= c #x04d0) (<= c #x04f4)))
1079 (set-case-syntax-pair
1080 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl))
1081 (setq c (1+ c)))
1082 (set-case-syntax-pair ?\e$,1*!\e(B ?\e$,1*"\e(B tbl)
1083 (set-case-syntax-pair ?\e$,1*#\e(B ?\e$,1*$\e(B tbl)
1084 (set-case-syntax-pair ?\e$,1*'\e(B ?\e$,1*(\e(B tbl)
1085 (set-case-syntax-pair ?\e$,1*+\e(B ?\e$,1*,\e(B tbl)
1086 (set-case-syntax-pair ?\e$,1*X\e(B ?\e$,1*Y\e(B tbl)
1087
1088 ;; general punctuation
1089 (setq c #x2000)
1090 (while (<= c #x200b)
1091 (set-case-syntax (decode-char 'ucs c) " " tbl)
1092 (setq c (decode-char 'ucs (1+ c))))
1093 (setq c #x2010)
1094 (while (<= c #x2027)
1095 (set-case-syntax (decode-char 'ucs c) "_" tbl)
1096 (setq c (decode-char 'ucs (1+ c))))
1097
1098 ;; Roman numerals
1099 (setq c #x2160)
1100 (while (<= c #x216f)
1101 (set-case-syntax-pair (decode-char 'ucs c)
1102 (decode-char 'ucs (+ c #x10)) tbl)
1103 (setq c (1+ c)))
1104
1105 ;; Circled Latin
1106 (setq c #x24b6)
1107 (while (<= c #x24cf)
1108 (set-case-syntax-pair (decode-char 'ucs c)
1109 (decode-char 'ucs (+ c 26)) tbl)
1110 (modify-category-entry (decode-char 'ucs c) ?l)
1111 (modify-category-entry (decode-char 'ucs (+ c 26)) ?l)
1112 (setq c (1+ c)))
1113
1114 ;; Fullwidth Latin
1115 (setq c #xff21)
1116 (while (<= c #xff3a)
1117 (set-case-syntax-pair (decode-char 'ucs c)
1118 (decode-char 'ucs (+ c #x20)) tbl)
1119 (modify-category-entry (decode-char 'ucs c) ?l)
1120 (modify-category-entry (decode-char 'ucs (+ c #x20)) ?l)
1121 (setq c (1+ c)))
1122
1123 ;; Combining diacritics
1124 (setq c #x300)
1125 (while (<= c #x362)
1126 (modify-category-entry (decode-char 'ucs c) ?^)
1127 (setq c (1+ c)))
1128
1129 ;; Combining marks
1130 (setq c #x20d0)
1131 (while (<= c #x20e3)
1132 (modify-category-entry (decode-char 'ucs c) ?^)
1133 (setq c (1+ c)))
1134
1135 ;; Fixme: syntax for symbols &c
1136 )
1137 \f
1138 ;;; Setting word boundary.
1139
1140 (setq word-combining-categories
1141 '((?l . ?l)))
1142
1143 (setq word-separating-categories ; (2-byte character sets)
1144 '((?A . ?K) ; Alpha numeric - Katakana
1145 (?A . ?C) ; Alpha numeric - Chinese
1146 (?H . ?A) ; Hiragana - Alpha numeric
1147 (?H . ?K) ; Hiragana - Katakana
1148 (?H . ?C) ; Hiragana - Chinese
1149 (?K . ?A) ; Katakana - Alpha numeric
1150 (?K . ?C) ; Katakana - Chinese
1151 (?C . ?A) ; Chinese - Alpha numeric
1152 (?C . ?K) ; Chinese - Katakana
1153 ))
1154
1155 \f
1156 ;; For each character set, put the information of the most proper
1157 ;; coding system to encode it by `preferred-coding-system' property.
1158
1159 (let ((l '((latin-iso8859-1 . iso-latin-1)
1160 (latin-iso8859-2 . iso-latin-2)
1161 (latin-iso8859-3 . iso-latin-3)
1162 (latin-iso8859-4 . iso-latin-4)
1163 (thai-tis620 . thai-tis620)
1164 (greek-iso8859-7 . greek-iso-8bit)
1165 (arabic-iso8859-6 . iso-2022-7bit)
1166 (hebrew-iso8859-8 . hebrew-iso-8bit)
1167 (katakana-jisx0201 . japanese-shift-jis)
1168 (latin-jisx0201 . japanese-shift-jis)
1169 (cyrillic-iso8859-5 . cyrillic-iso-8bit)
1170 (latin-iso8859-9 . iso-latin-5)
1171 (japanese-jisx0208-1978 . iso-2022-jp)
1172 (chinese-gb2312 . cn-gb-2312)
1173 (japanese-jisx0208 . iso-2022-jp)
1174 (korean-ksc5601 . iso-2022-kr)
1175 (japanese-jisx0212 . iso-2022-jp)
1176 (chinese-cns11643-1 . iso-2022-cn)
1177 (chinese-cns11643-2 . iso-2022-cn)
1178 (chinese-big5-1 . chinese-big5)
1179 (chinese-big5-2 . chinese-big5)
1180 (chinese-sisheng . iso-2022-7bit)
1181 (ipa . iso-2022-7bit)
1182 (vietnamese-viscii-lower . vietnamese-viscii)
1183 (vietnamese-viscii-upper . vietnamese-viscii)
1184 (arabic-digit . iso-2022-7bit)
1185 (arabic-1-column . iso-2022-7bit)
1186 (ascii-right-to-left . iso-2022-7bit)
1187 (lao . lao)
1188 (arabic-2-column . iso-2022-7bit)
1189 (indian-is13194 . devanagari)
1190 (indian-glyph . devanagari)
1191 (tibetan-1-column . tibetan)
1192 (ethiopic . iso-2022-7bit)
1193 (chinese-cns11643-3 . iso-2022-cn)
1194 (chinese-cns11643-4 . iso-2022-cn)
1195 (chinese-cns11643-5 . iso-2022-cn)
1196 (chinese-cns11643-6 . iso-2022-cn)
1197 (chinese-cns11643-7 . iso-2022-cn)
1198 (indian-2-column . devanagari)
1199 (tibetan . tibetan)
1200 (latin-iso8859-14 . iso-latin-8)
1201 (latin-iso8859-15 . iso-latin-9))))
1202 (while l
1203 (put-charset-property (car (car l)) 'preferred-coding-system (cdr (car l)))
1204 (setq l (cdr l))))
1205
1206 \f
1207 ;; Setup auto-fill-chars for charsets that should invoke auto-filling.
1208 ;; SPACE and NEWLINE are already set. Also put `nospace-between-words'
1209 ;; property on the charsets.
1210 (let ((l '(katakana-jisx0201
1211 japanese-jisx0208 japanese-jisx0212
1212 chinese-gb2312 chinese-big5-1 chinese-big5-2)))
1213 (while l
1214 (aset auto-fill-chars (make-char (car l)) t)
1215 (put-charset-property (car l) 'nospace-between-words t)
1216 (setq l (cdr l))))
1217
1218 ;;; Local Variables:
1219 ;;; coding: iso-2022-7bit
1220 ;;; End:
1221
1222 ;;; characters.el ends here
Emacs repository mirror