1 ;;; characters.el --- set syntax and category for multibyte characters
3 ;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
4 ;; Free Software Foundation, Inc.
5 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
6 ;; 2005, 2006, 2007, 2008
7 ;; National Institute of Advanced Industrial Science and Technology (AIST)
8 ;; Registration Number H14PRO021
10 ;; Keywords: multibyte character, character set, syntax, category
12 ;; This file is part of GNU Emacs.
14 ;; GNU Emacs is free software; you can redistribute it and/or modify
15 ;; it under the terms of the GNU General Public License as published by
16 ;; the Free Software Foundation; either version 3, or (at your option)
19 ;; GNU Emacs is distributed in the hope that it will be useful,
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 ;; GNU General Public License for more details.
24 ;; You should have received a copy of the GNU General Public License
25 ;; along with GNU Emacs; see the file COPYING. If not, write to the
26 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
27 ;; Boston, MA 02110-1301, USA.
31 ;; This file contains multibyte characters. Save this file always in
32 ;; the coding system `iso-2022-7bit'.
34 ;; This file does not define the syntax for Latin-N character sets;
35 ;; those are defined by the files latin-N.el.
39 ;; We must set utf-translate-cjk-mode to nil while loading this file
40 ;; to avoid translating CJK characters in decode-char.
41 (defvar saved-utf-translate-cjk-mode utf-translate-cjk-mode)
42 (setq utf-translate-cjk-mode nil)
44 ;;; Predefined categories.
46 ;; For each character set.
48 (define-category ?a "ASCII graphic characters 32-126 (ISO646 IRV:1983[4/0])")
49 (define-category ?l "Latin")
50 (define-category ?t "Thai")
51 (define-category ?g "Greek")
52 (define-category ?b "Arabic")
53 (define-category ?w "Hebrew")
54 (define-category ?y "Cyrillic")
55 (define-category ?k "Japanese katakana")
56 (define-category ?r "Japanese roman")
57 (define-category ?c "Chinese")
58 (define-category ?j "Japanese")
59 (define-category ?h "Korean")
60 (define-category ?e "Ethiopic (Ge'ez)")
61 (define-category ?v "Vietnamese")
62 (define-category ?i "Indian")
63 (define-category ?o "Lao")
64 (define-category ?q "Tibetan")
66 ;; For each group (row) of 2-byte character sets.
68 (define-category ?A "Alpha-numeric characters of 2-byte character sets")
69 (define-category ?C "Chinese (Han) characters of 2-byte character sets")
70 (define-category ?G "Greek characters of 2-byte character sets")
71 (define-category ?H "Japanese Hiragana characters of 2-byte character sets")
72 (define-category ?K "Japanese Katakana characters of 2-byte character sets")
73 (define-category ?N "Korean Hangul characters of 2-byte character sets")
74 (define-category ?Y "Cyrillic characters of 2-byte character sets")
75 (define-category ?I "Indian Glyphs")
77 ;; For phonetic classifications.
79 (define-category ?0 "consonant")
80 (define-category ?1 "base (independent) vowel")
81 (define-category ?2 "upper diacritical mark (including upper vowel)")
82 (define-category ?3 "lower diacritical mark (including lower vowel)")
83 (define-category ?4 "tone mark")
84 (define-category ?5 "symbol")
85 (define-category ?6 "digit")
86 (define-category ?7 "vowel-modifying diacritical mark")
87 (define-category ?8 "vowel-signs")
88 (define-category ?9 "semivowel lower")
91 (define-category ?| "While filling, we can break a line at this character.")
93 ;; For indentation calculation.
95 "This character counts as a space for indentation purposes.")
97 ;; Keep the following for `kinsoku' processing. See comments in
99 (define-category ?> "A character which can't be placed at beginning of line.")
100 (define-category ?< "A character which can't be placed at end of line.")
103 (define-category ?^ "Combining diacritic or mark")
105 ;;; Setting syntax and category.
110 (while (< ch 127) ; All ASCII characters have
111 (modify-category-entry ch ?a) ; the category `a' (ASCII)
112 (modify-category-entry ch ?l) ; and `l' (Latin).
115 ;; Arabic character set
117 (let ((charsets '(arabic-iso8859-6
122 ;; (modify-syntax-entry (make-char (car charsets)) "w")
123 (modify-category-entry (make-char (car charsets)) ?b)
124 (setq charsets (cdr charsets))))
127 (modify-category-entry (decode-char 'ucs ch) ?b)
130 (while (<= ch #xfdff)
131 (modify-category-entry (decode-char 'ucs ch) ?b)
134 (while (<= ch #xfefe)
135 (modify-category-entry (decode-char 'ucs ch) ?b)
138 ;; Chinese character set (GB2312)
140 ;; (modify-syntax-entry (make-char 'chinese-gb2312) "w")
141 (modify-syntax-entry (make-char 'chinese-gb2312 33) "_")
142 (modify-syntax-entry (make-char 'chinese-gb2312 34) "_")
143 (modify-syntax-entry (make-char 'chinese-gb2312 41) "_")
144 (modify-syntax-entry ?\
\e$A!2
\e(B "(
\e$A!3
\e(B")
145 (modify-syntax-entry ?\
\e$A!4
\e(B "(
\e$A!5
\e(B")
146 (modify-syntax-entry ?\
\e$A!6
\e(B "(
\e$A!7
\e(B")
147 (modify-syntax-entry ?\
\e$A!8
\e(B "(
\e$A!9
\e(B")
148 (modify-syntax-entry ?\
\e$A!:
\e(B "(
\e$A!;
\e(B")
149 (modify-syntax-entry ?\
\e$A!<
\e(B "(
\e$A!=
\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!3
\e(B ")
\e$A!2
\e(B")
155 (modify-syntax-entry ?\
\e$A!5
\e(B ")
\e$A!4
\e(B")
156 (modify-syntax-entry ?\
\e$A!7
\e(B ")
\e$A!6
\e(B")
157 (modify-syntax-entry ?\
\e$A!9
\e(B ")
\e$A!8
\e(B")
158 (modify-syntax-entry ?\
\e$A!;
\e(B ")
\e$A!:
\e(B")
159 (modify-syntax-entry ?\
\e$A!=
\e(B ")
\e$A!<
\e(B")
160 (modify-syntax-entry ?\
\e$A!?
\e(B ")
\e$A!>
\e(B")
161 (modify-syntax-entry ?\
\e$A#)
\e(B ")
\e$A#(
\e(B")
162 (modify-syntax-entry ?\
\e$A#}
\e(B ")
\e$A#{
\e(B")
163 (modify-syntax-entry ?\
\e$A#]
\e(B ")
\e$A#[
\e(B")
165 (let ((chars "
\e$A#,!"!##.!$#;#:#?#!!C!-!'#|#_!.!/!0!1#"!e#`!d
\e(B"))
166 (dotimes (i (length chars))
167 (modify-syntax-entry (aref chars i) ".")))
169 (modify-category-entry (make-char 'chinese-gb2312) ?c)
170 (modify-category-entry (make-char 'chinese-gb2312) ?\|)
171 (modify-category-entry (make-char 'chinese-gb2312 35) ?A)
172 (modify-category-entry (make-char 'chinese-gb2312 36) ?H)
173 (modify-category-entry (make-char 'chinese-gb2312 37) ?K)
174 (modify-category-entry (make-char 'chinese-gb2312 38) ?G)
175 (modify-category-entry (make-char 'chinese-gb2312 39) ?Y)
178 (modify-category-entry (make-char 'chinese-gb2312 row) ?C)
179 (setq row (1+ row))))
181 (let ((tbl (standard-case-table)))
183 (set-case-syntax-pair (make-char 'chinese-gb2312 #x23 (+ #x41 i))
184 (make-char 'chinese-gb2312 #x23 (+ #x61 i)) tbl))
186 (set-case-syntax-pair (make-char 'chinese-gb2312 #x26 (+ #x21 i))
187 (make-char 'chinese-gb2312 #x26 (+ #x41 i)) tbl))
189 (set-case-syntax-pair (make-char 'chinese-gb2312 #x27 (+ #x21 i))
190 (make-char 'chinese-gb2312 #x27 (+ #x51 i)) tbl)))
192 ;; Chinese character set (BIG5)
194 (let ((from (decode-big5-char #xA141))
195 (to (decode-big5-char #xA15D)))
197 (modify-syntax-entry from ".")
198 (setq from (1+ from))))
199 (let ((from (decode-big5-char #xA1A5))
200 (to (decode-big5-char #xA1AD)))
202 (modify-syntax-entry from ".")
203 (setq from (1+ from))))
204 (let ((from (decode-big5-char #xA1AD))
205 (to (decode-big5-char #xA2AF)))
207 (modify-syntax-entry from "_")
208 (setq from (1+ from))))
210 (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")
212 (dotimes (i (/ (length parens) 2))
213 (setq open (aref parens (* i 2))
214 close (aref parens (1+ (* i 2))))
215 (modify-syntax-entry open (format "(%c" close))
216 (modify-syntax-entry close (format ")%c" open))))
218 (let ((generic-big5-1-char (make-char 'chinese-big5-1))
219 (generic-big5-2-char (make-char 'chinese-big5-2)))
220 ;; (modify-syntax-entry generic-big5-1-char "w")
221 ;; (modify-syntax-entry generic-big5-2-char "w")
223 (modify-category-entry generic-big5-1-char ?c)
224 (modify-category-entry generic-big5-2-char ?c)
226 (modify-category-entry generic-big5-1-char ?C)
227 (modify-category-entry generic-big5-2-char ?C)
229 (modify-category-entry generic-big5-1-char ?\|)
230 (modify-category-entry generic-big5-2-char ?\|))
232 (let ((tbl (standard-case-table)))
234 (set-case-syntax-pair (decode-big5-char (+ #xA2CF i))
235 (decode-big5-char (+ #xA2CF i 26)) tbl))
237 (set-case-syntax-pair (decode-big5-char (+ #xA2E4 i))
238 (decode-big5-char (+ #xA340 i)) tbl))
240 (set-case-syntax-pair (decode-big5-char (+ #xA344 i))
241 (decode-big5-char (+ #xA344 i 24)) tbl)))
244 ;; Chinese character set (CNS11643)
246 (let ((cns-list '(chinese-cns11643-1
255 (setq generic-char (make-char (car cns-list)))
256 ;; (modify-syntax-entry generic-char "w")
257 (modify-category-entry generic-char ?c)
258 (modify-category-entry generic-char ?C)
259 (modify-category-entry generic-char ?|)
260 (setq cns-list (cdr cns-list))))
262 (let ((parens "
\e$(G!>!?!@!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")
264 (dotimes (i (/ (length parens) 2))
265 (setq open (aref parens (* i 2))
266 close (aref parens (1+ (* i 2))))
267 (modify-syntax-entry open (format "(%c" close))
268 (modify-syntax-entry close (format ")%c" open))))
270 ;; Cyrillic character set (ISO-8859-5)
272 (modify-category-entry (make-char 'cyrillic-iso8859-5) ?y)
274 (modify-syntax-entry (make-char 'cyrillic-iso8859-5 160) " ")
275 (modify-syntax-entry ?
\e,L-
\e(B ".")
276 (modify-syntax-entry ?
\e,Lp
\e(B ".")
277 (modify-syntax-entry ?
\e,L}
\e(B ".")
278 (let ((tbl (standard-case-table)))
279 (set-case-syntax-pair ?
\e,L!
\e(B ?
\e,Lq
\e(B tbl)
280 (set-case-syntax-pair ?
\e,L"
\e(B ?
\e,Lr
\e(B tbl)
281 (set-case-syntax-pair ?
\e,L#
\e(B ?
\e,Ls
\e(B tbl)
282 (set-case-syntax-pair ?
\e,L$
\e(B ?
\e,Lt
\e(B tbl)
283 (set-case-syntax-pair ?
\e,L%
\e(B ?
\e,Lu
\e(B tbl)
284 (set-case-syntax-pair ?
\e,L&
\e(B ?
\e,Lv
\e(B tbl)
285 (set-case-syntax-pair ?
\e,L'
\e(B ?
\e,Lw
\e(B tbl)
286 (set-case-syntax-pair ?
\e,L(
\e(B ?
\e,Lx
\e(B tbl)
287 (set-case-syntax-pair ?
\e,L)
\e(B ?
\e,Ly
\e(B tbl)
288 (set-case-syntax-pair ?
\e,L*
\e(B ?
\e,Lz
\e(B tbl)
289 (set-case-syntax-pair ?
\e,L+
\e(B ?
\e,L{
\e(B tbl)
290 (set-case-syntax-pair ?
\e,L,
\e(B ?
\e,L|
\e(B tbl)
291 (set-case-syntax-pair ?
\e,L.
\e(B ?
\e,L~
\e(B tbl)
292 (set-case-syntax-pair ?
\e,L/
\e(B ?
\e,L
\7f\e(B tbl)
293 (set-case-syntax-pair ?
\e,L0
\e(B ?
\e,LP
\e(B tbl)
294 (set-case-syntax-pair ?
\e,L1
\e(B ?
\e,LQ
\e(B tbl)
295 (set-case-syntax-pair ?
\e,L2
\e(B ?
\e,LR
\e(B tbl)
296 (set-case-syntax-pair ?
\e,L3
\e(B ?
\e,LS
\e(B tbl)
297 (set-case-syntax-pair ?
\e,L4
\e(B ?
\e,LT
\e(B tbl)
298 (set-case-syntax-pair ?
\e,L5
\e(B ?
\e,LU
\e(B tbl)
299 (set-case-syntax-pair ?
\e,L6
\e(B ?
\e,LV
\e(B tbl)
300 (set-case-syntax-pair ?
\e,L7
\e(B ?
\e,LW
\e(B tbl)
301 (set-case-syntax-pair ?
\e,L8
\e(B ?
\e,LX
\e(B tbl)
302 (set-case-syntax-pair ?
\e,L9
\e(B ?
\e,LY
\e(B tbl)
303 (set-case-syntax-pair ?
\e,L:
\e(B ?
\e,LZ
\e(B tbl)
304 (set-case-syntax-pair ?
\e,L;
\e(B ?
\e,L[
\e(B tbl)
305 (set-case-syntax-pair ?
\e,L<
\e(B ?
\e,L\
\e(B tbl)
306 (set-case-syntax-pair ?
\e,L=
\e(B ?
\e,L]
\e(B tbl)
307 (set-case-syntax-pair ?
\e,L>
\e(B ?
\e,L^
\e(B tbl)
308 (set-case-syntax-pair ?
\e,L?
\e(B ?
\e,L_
\e(B tbl)
309 (set-case-syntax-pair ?
\e,L@
\e(B ?
\e,L`
\e(B tbl)
310 (set-case-syntax-pair ?
\e,LA
\e(B ?
\e,La
\e(B tbl)
311 (set-case-syntax-pair ?
\e,LB
\e(B ?
\e,Lb
\e(B tbl)
312 (set-case-syntax-pair ?
\e,LC
\e(B ?
\e,Lc
\e(B tbl)
313 (set-case-syntax-pair ?
\e,LD
\e(B ?
\e,Ld
\e(B tbl)
314 (set-case-syntax-pair ?
\e,LE
\e(B ?
\e,Le
\e(B tbl)
315 (set-case-syntax-pair ?
\e,LF
\e(B ?
\e,Lf
\e(B tbl)
316 (set-case-syntax-pair ?
\e,LG
\e(B ?
\e,Lg
\e(B tbl)
317 (set-case-syntax-pair ?
\e,LH
\e(B ?
\e,Lh
\e(B tbl)
318 (set-case-syntax-pair ?
\e,LI
\e(B ?
\e,Li
\e(B tbl)
319 (set-case-syntax-pair ?
\e,LJ
\e(B ?
\e,Lj
\e(B tbl)
320 (set-case-syntax-pair ?
\e,LK
\e(B ?
\e,Lk
\e(B tbl)
321 (set-case-syntax-pair ?
\e,LL
\e(B ?
\e,Ll
\e(B tbl)
322 (set-case-syntax-pair ?
\e,LM
\e(B ?
\e,Lm
\e(B tbl)
323 (set-case-syntax-pair ?
\e,LN
\e(B ?
\e,Ln
\e(B tbl)
324 (set-case-syntax-pair ?
\e,LO
\e(B ?
\e,Lo
\e(B tbl)
325 (set-case-syntax-pair ?
\e$,1(!
\e(B ?
\e$,1(q
\e(B tbl)
326 (set-case-syntax-pair ?
\e$,1("
\e(B ?
\e$,1(r
\e(B tbl)
327 (set-case-syntax-pair ?
\e$,1(#
\e(B ?
\e$,1(s
\e(B tbl)
328 (set-case-syntax-pair ?
\e$,1($
\e(B ?
\e$,1(t
\e(B tbl)
329 (set-case-syntax-pair ?
\e$,1(%
\e(B ?
\e$,1(u
\e(B tbl)
330 (set-case-syntax-pair ?
\e$,1(&
\e(B ?
\e$,1(v
\e(B tbl)
331 (set-case-syntax-pair ?
\e$,1('
\e(B ?
\e$,1(w
\e(B tbl)
332 (set-case-syntax-pair ?
\e$,1((
\e(B ?
\e$,1(x
\e(B tbl)
333 (set-case-syntax-pair ?
\e$,1()
\e(B ?
\e$,1(y
\e(B tbl)
334 (set-case-syntax-pair ?
\e$,1(*
\e(B ?
\e$,1(z
\e(B tbl)
335 (set-case-syntax-pair ?
\e$,1(+
\e(B ?
\e$,1({
\e(B tbl)
336 (set-case-syntax-pair ?
\e$,1(,
\e(B ?
\e$,1(|
\e(B tbl)
337 (set-case-syntax-pair ?
\e$,1(.
\e(B ?
\e$,1(~
\e(B tbl)
338 (set-case-syntax-pair ?
\e$,1(/
\e(B ?
\e$,1(
\7f\e(B tbl)
339 (set-case-syntax-pair ?
\e$,1(0
\e(B ?
\e$,1(P
\e(B tbl)
340 (set-case-syntax-pair ?
\e$,1(1
\e(B ?
\e$,1(Q
\e(B tbl)
341 (set-case-syntax-pair ?
\e$,1(2
\e(B ?
\e$,1(R
\e(B tbl)
342 (set-case-syntax-pair ?
\e$,1(3
\e(B ?
\e$,1(S
\e(B tbl)
343 (set-case-syntax-pair ?
\e$,1(4
\e(B ?
\e$,1(T
\e(B tbl)
344 (set-case-syntax-pair ?
\e$,1(5
\e(B ?
\e$,1(U
\e(B tbl)
345 (set-case-syntax-pair ?
\e$,1(6
\e(B ?
\e$,1(V
\e(B tbl)
346 (set-case-syntax-pair ?
\e$,1(7
\e(B ?
\e$,1(W
\e(B tbl)
347 (set-case-syntax-pair ?
\e$,1(8
\e(B ?
\e$,1(X
\e(B tbl)
348 (set-case-syntax-pair ?
\e$,1(9
\e(B ?
\e$,1(Y
\e(B tbl)
349 (set-case-syntax-pair ?
\e$,1(:
\e(B ?
\e$,1(Z
\e(B tbl)
350 (set-case-syntax-pair ?
\e$,1(;
\e(B ?
\e$,1([
\e(B tbl)
351 (set-case-syntax-pair ?
\e$,1(<
\e(B ?
\e$,1(\
\e(B tbl)
352 (set-case-syntax-pair ?
\e$,1(=
\e(B ?
\e$,1(]
\e(B tbl)
353 (set-case-syntax-pair ?
\e$,1(>
\e(B ?
\e$,1(^
\e(B tbl)
354 (set-case-syntax-pair ?
\e$,1(?
\e(B ?
\e$,1(_
\e(B tbl)
355 (set-case-syntax-pair ?
\e$,1(@
\e(B ?
\e$,1(`
\e(B tbl)
356 (set-case-syntax-pair ?
\e$,1(A
\e(B ?
\e$,1(a
\e(B tbl)
357 (set-case-syntax-pair ?
\e$,1(B
\e(B ?
\e$,1(b
\e(B tbl)
358 (set-case-syntax-pair ?
\e$,1(C
\e(B ?
\e$,1(c
\e(B tbl)
359 (set-case-syntax-pair ?
\e$,1(D
\e(B ?
\e$,1(d
\e(B tbl)
360 (set-case-syntax-pair ?
\e$,1(E
\e(B ?
\e$,1(e
\e(B tbl)
361 (set-case-syntax-pair ?
\e$,1(F
\e(B ?
\e$,1(f
\e(B tbl)
362 (set-case-syntax-pair ?
\e$,1(G
\e(B ?
\e$,1(g
\e(B tbl)
363 (set-case-syntax-pair ?
\e$,1(H
\e(B ?
\e$,1(h
\e(B tbl)
364 (set-case-syntax-pair ?
\e$,1(I
\e(B ?
\e$,1(i
\e(B tbl)
365 (set-case-syntax-pair ?
\e$,1(J
\e(B ?
\e$,1(j
\e(B tbl)
366 (set-case-syntax-pair ?
\e$,1(K
\e(B ?
\e$,1(k
\e(B tbl)
367 (set-case-syntax-pair ?
\e$,1(L
\e(B ?
\e$,1(l
\e(B tbl)
368 (set-case-syntax-pair ?
\e$,1(M
\e(B ?
\e$,1(m
\e(B tbl)
369 (set-case-syntax-pair ?
\e$,1(N
\e(B ?
\e$,1(n
\e(B tbl)
370 (set-case-syntax-pair ?
\e$,1(O
\e(B ?
\e$,1(o
\e(B tbl))
372 ;; Devanagari character set
374 ;;; Commented out since the categories appear not to be used anywhere
375 ;;; and word syntax is the default.
376 ;; (let ((deflist '(;; chars syntax category
377 ;; ("
\e$(5!!!"!#
\e(B" "w" ?7) ; vowel-modifying diacritical mark
378 ;; ; chandrabindu, anuswar, visarga
379 ;; ("
\e$(5!$
\e(B-
\e$(5!2
\e(B" "w" ?1) ; independent vowel
380 ;; ("
\e$(5!3
\e(B-
\e$(5!X
\e(B" "w" ?0) ; consonant
381 ;; ("
\e$(5!Z
\e(B-
\e$(5!g
\e(B" "w" ?8) ; matra
382 ;; ("
\e$(5!q
\e(B-
\e$(5!z
\e(B" "w" ?6) ; digit
383 ;; ;; Unicode equivalents
384 ;; ("
\e$,15A5B5C
\e(B" "w" ?7) ; vowel-modifying diacritical mark
385 ;; ; chandrabindu, anuswar, visarga
386 ;; ("
\e$,15E
\e(B-
\e$,15M
\e(B" "w" ?1) ; independent vowel
387 ;; ("
\e$,15U
\e(B-
\e$,15y
\e(B" "w" ?0) ; consonant
388 ;; ("
\e$,15~
\e(B-
\e$,16)
\e(B" "w" ?8) ; matra
389 ;; ("
\e$,16F
\e(B-
\e$,16O
\e(B" "w" ?6) ; digit
391 ;; elm chars len syntax category to ch i)
393 ;; (setq elm (car deflist))
394 ;; (setq chars (car elm)
395 ;; len (length chars)
396 ;; syntax (nth 1 elm)
397 ;; category (nth 2 elm)
400 ;; (if (= (aref chars i) ?-)
402 ;; to (aref chars i))
403 ;; (setq ch (aref chars i)
406 ;; (modify-syntax-entry ch syntax)
407 ;; (modify-category-entry ch category)
408 ;; (setq ch (1+ ch)))
410 ;; (setq deflist (cdr deflist))))
412 ;; Ethiopic character set
414 (modify-category-entry (make-char 'ethiopic) ?e)
415 ;; (modify-syntax-entry (make-char 'ethiopic) "w")
416 (dotimes (i (1+ (- #x137c #x1200)))
417 (modify-category-entry (decode-char 'ucs (+ #x1200 i)) ?e))
418 (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
419 ;; Unicode equivalents of the above:
420 ?
\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
\7f\e(B)))
422 (modify-syntax-entry (car chars) ".")
423 (setq chars (cdr chars))))
425 ;; Greek character set (ISO-8859-7)
427 (modify-category-entry (make-char 'greek-iso8859-7) ?g)
430 (modify-category-entry (decode-char 'ucs c) ?g)
435 ;; (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w")
437 ;; (modify-syntax-entry (make-char 'greek-iso8859-7 160) "w") ; NBSP
438 (modify-syntax-entry ?
\e,F7
\e(B ".")
439 (modify-syntax-entry ?
\e,F;
\e(B ".")
440 (modify-syntax-entry ?
\e,F=
\e(B ".")
441 (let ((tbl (standard-case-table)))
442 ;; Fixme: non-letter syntax copied from latin-1, but that's dubious
444 (set-case-syntax ?
\e,F!
\e(B "." tbl)
445 (set-case-syntax ?
\e,F"
\e(B "." tbl)
446 (set-case-syntax ?
\e,F&
\e(B "." tbl)
447 (set-case-syntax ?
\e,F&
\e(B "_" tbl)
448 (set-case-syntax ?
\e,F'
\e(B "." tbl)
449 (set-case-syntax ?
\e,F)
\e(B "_" tbl)
450 (set-case-syntax ?
\e,F+
\e(B "." tbl)
451 (set-case-syntax ?
\e,F,
\e(B "_" tbl)
452 (set-case-syntax ?
\e,F-
\e(B "_" tbl)
453 (set-case-syntax ?
\e,F/
\e(B "." tbl)
454 (set-case-syntax ?
\e,F0
\e(B "_" tbl)
455 (set-case-syntax ?
\e,F1
\e(B "_" tbl)
456 ;; (set-case-syntax ?
\e,F7
\e(B "_" tbl)
457 ;; (set-case-syntax ?
\e,F=
\e(B "_" tbl)
458 (set-case-syntax-pair ?
\e,FA
\e(B ?
\e,Fa
\e(B tbl)
459 (set-case-syntax-pair ?
\e,FB
\e(B ?
\e,Fb
\e(B tbl)
460 (set-case-syntax-pair ?
\e,FC
\e(B ?
\e,Fc
\e(B tbl)
461 (set-case-syntax-pair ?
\e,FD
\e(B ?
\e,Fd
\e(B tbl)
462 (set-case-syntax-pair ?
\e,FE
\e(B ?
\e,Fe
\e(B tbl)
463 (set-case-syntax-pair ?
\e,FF
\e(B ?
\e,Ff
\e(B tbl)
464 (set-case-syntax-pair ?
\e,FG
\e(B ?
\e,Fg
\e(B tbl)
465 (set-case-syntax-pair ?
\e,FH
\e(B ?
\e,Fh
\e(B tbl)
466 (set-case-syntax-pair ?
\e,FI
\e(B ?
\e,Fi
\e(B tbl)
467 (set-case-syntax-pair ?
\e,FJ
\e(B ?
\e,Fj
\e(B tbl)
468 (set-case-syntax-pair ?
\e,FK
\e(B ?
\e,Fk
\e(B tbl)
469 (set-case-syntax-pair ?
\e,FL
\e(B ?
\e,Fl
\e(B tbl)
470 (set-case-syntax-pair ?
\e,FM
\e(B ?
\e,Fm
\e(B tbl)
471 (set-case-syntax-pair ?
\e,FN
\e(B ?
\e,Fn
\e(B tbl)
472 (set-case-syntax-pair ?
\e,FO
\e(B ?
\e,Fo
\e(B tbl)
473 (set-case-syntax-pair ?
\e,FP
\e(B ?
\e,Fp
\e(B tbl)
474 (set-case-syntax-pair ?
\e,FQ
\e(B ?
\e,Fq
\e(B tbl)
475 (set-upcase-syntax ?
\e,FS
\e(B ?
\e,Fr
\e(B tbl)
476 (set-case-syntax-pair ?
\e,FS
\e(B ?
\e,Fs
\e(B tbl)
477 (set-case-syntax-pair ?
\e,FT
\e(B ?
\e,Ft
\e(B tbl)
478 (set-case-syntax-pair ?
\e,FU
\e(B ?
\e,Fu
\e(B tbl)
479 (set-case-syntax-pair ?
\e,FV
\e(B ?
\e,Fv
\e(B tbl)
480 (set-case-syntax-pair ?
\e,FW
\e(B ?
\e,Fw
\e(B tbl)
481 (set-case-syntax-pair ?
\e,FX
\e(B ?
\e,Fx
\e(B tbl)
482 (set-case-syntax-pair ?
\e,FY
\e(B ?
\e,Fy
\e(B tbl)
483 (set-case-syntax-pair ?
\e,FZ
\e(B ?
\e,Fz
\e(B tbl)
484 (set-case-syntax-pair ?
\e,F[
\e(B ?
\e,F{
\e(B tbl)
485 (set-case-syntax-pair ?
\e,F?
\e(B ?
\e,F~
\e(B tbl)
486 (set-case-syntax-pair ?
\e,F>
\e(B ?
\e,F}
\e(B tbl)
487 (set-case-syntax-pair ?
\e,F<
\e(B ?
\e,F|
\e(B tbl)
488 (set-case-syntax-pair ?
\e,F6
\e(B ?
\e,F\
\e(B tbl)
489 (set-case-syntax-pair ?
\e,F8
\e(B ?
\e,F]
\e(B tbl)
490 (set-case-syntax-pair ?
\e,F9
\e(B ?
\e,F^
\e(B tbl)
491 (set-case-syntax-pair ?
\e,F:
\e(B ?
\e,F_
\e(B tbl)
492 ;; Unicode equivalents
493 (set-case-syntax-pair ?
\e$,1&q
\e(B ?
\e$,1'1
\e(B tbl)
494 (set-case-syntax-pair ?
\e$,1&r
\e(B ?
\e$,1'2
\e(B tbl)
495 (set-case-syntax-pair ?
\e$,1&s
\e(B ?
\e$,1'3
\e(B tbl)
496 (set-case-syntax-pair ?
\e$,1&t
\e(B ?
\e$,1'4
\e(B tbl)
497 (set-case-syntax-pair ?
\e$,1&u
\e(B ?
\e$,1'5
\e(B tbl)
498 (set-case-syntax-pair ?
\e$,1&v
\e(B ?
\e$,1'6
\e(B tbl)
499 (set-case-syntax-pair ?
\e$,1&w
\e(B ?
\e$,1'7
\e(B tbl)
500 (set-case-syntax-pair ?
\e$,1&x
\e(B ?
\e$,1'8
\e(B tbl)
501 (set-case-syntax-pair ?
\e$,1&y
\e(B ?
\e$,1'9
\e(B tbl)
502 (set-case-syntax-pair ?
\e$,1&z
\e(B ?
\e$,1':
\e(B tbl)
503 (set-case-syntax-pair ?
\e$,1&{
\e(B ?
\e$,1';
\e(B tbl)
504 (set-case-syntax-pair ?
\e$,1&|
\e(B ?
\e$,1'<
\e(B tbl)
505 (set-case-syntax-pair ?
\e$,1&}
\e(B ?
\e$,1'=
\e(B tbl)
506 (set-case-syntax-pair ?
\e$,1&~
\e(B ?
\e$,1'>
\e(B tbl)
507 (set-case-syntax-pair ?
\e$,1&
\7f\e(B ?
\e$,1'?
\e(B tbl)
508 (set-case-syntax-pair ?
\e$,1'
\e(B ?
\e$,1'@
\e(B tbl)
509 (set-case-syntax-pair ?
\e$,1'!
\e(B ?
\e$,1'A
\e(B tbl)
510 (set-upcase-syntax ?
\e$,1'#
\e(B ?
\e$,1'B
\e(B tbl)
511 (set-case-syntax-pair ?
\e$,1'#
\e(B ?
\e$,1'C
\e(B tbl)
512 (set-case-syntax-pair ?
\e$,1'$
\e(B ?
\e$,1'D
\e(B tbl)
513 (set-case-syntax-pair ?
\e$,1'%
\e(B ?
\e$,1'E
\e(B tbl)
514 (set-case-syntax-pair ?
\e$,1'&
\e(B ?
\e$,1'F
\e(B tbl)
515 (set-case-syntax-pair ?
\e$,1''
\e(B ?
\e$,1'G
\e(B tbl)
516 (set-case-syntax-pair ?
\e$,1'(
\e(B ?
\e$,1'H
\e(B tbl)
517 (set-case-syntax-pair ?
\e$,1')
\e(B ?
\e$,1'I
\e(B tbl)
518 (set-case-syntax-pair ?
\e$,1'*
\e(B ?
\e$,1'J
\e(B tbl)
519 (set-case-syntax-pair ?
\e$,1'+
\e(B ?
\e$,1'K
\e(B tbl)
520 (set-case-syntax-pair ?
\e$,1&o
\e(B ?
\e$,1'N
\e(B tbl)
521 (set-case-syntax-pair ?
\e$,1&n
\e(B ?
\e$,1'M
\e(B tbl)
522 (set-case-syntax-pair ?
\e$,1&l
\e(B ?
\e$,1'L
\e(B tbl)
523 (set-case-syntax-pair ?
\e$,1&f
\e(B ?
\e$,1',
\e(B tbl)
524 (set-case-syntax-pair ?
\e$,1&h
\e(B ?
\e$,1'-
\e(B tbl)
525 (set-case-syntax-pair ?
\e$,1&i
\e(B ?
\e$,1'.
\e(B tbl)
526 (set-case-syntax-pair ?
\e$,1&j
\e(B ?
\e$,1'/
\e(B tbl))
528 ;; Hebrew character set (ISO-8859-8)
530 (modify-category-entry (make-char 'hebrew-iso8859-8) ?w)
533 (modify-category-entry (decode-char 'ucs c) ?w)
536 (modify-syntax-entry (make-char 'hebrew-iso8859-8 208) ".") ; PASEQ
537 (modify-syntax-entry (make-char 'hebrew-iso8859-8 211) ".") ; SOF PASUQ
538 (modify-syntax-entry (decode-char 'ucs #x5be) ".") ; MAQAF
539 (modify-syntax-entry (decode-char 'ucs #x5c0) ".") ; PASEQ
540 (modify-syntax-entry (decode-char 'ucs #x5c3) ".") ; SOF PASUQ
541 (modify-syntax-entry (decode-char 'ucs #x5f3) ".") ; GERESH
542 (modify-syntax-entry (decode-char 'ucs #x5f4) ".") ; GERSHAYIM
546 ;; (modify-syntax-entry (make-char 'hebrew-iso8859-8 c) "w")
548 ;; (modify-syntax-entry (make-char 'hebrew-iso8859-8 160) "w") ; NBSP
550 ;; Indian character set (IS 13194 and other Emacs original Indian charsets)
552 (modify-category-entry (make-char 'indian-is13194) ?i)
553 (modify-category-entry (make-char 'indian-2-column) ?I)
554 (modify-category-entry (make-char 'indian-glyph) ?I)
555 ;; Unicode Devanagari block
558 (modify-category-entry (decode-char 'ucs c) ?i)
561 (let ((l '(;; RANGE CATEGORY MEANINGS
562 (#x01 #x03 ?7) ; vowel modifier
563 (#x05 #x14 ?1) ; base vowel
564 (#x15 #x39 ?0) ; consonants
565 (#x3e #x4d ?8) ; vowel modifier
566 (#x51 #x54 ?4) ; stress/tone mark
567 (#x58 #x5f ?0) ; consonants
568 (#x60 #x61 ?1) ; base vowel
569 (#x62 #x63 ?8) ; vowel modifier
570 (#x66 #x6f ?6) ; digits
572 (dolist (elt1 '(#x900 #x980 #xa00 #xa80 #xb00 #xb80 #xc00 #xc80 #xd00))
574 (let* ((from (car elt2))
575 (counts (1+ (- (nth 1 elt2) from)))
576 (category (nth 2 elt2)))
578 (modify-category-entry (decode-char 'ucs (+ elt1 from i))
581 ;; Japanese character set (JISX0201-kana, JISX0201-roman, JISX0208, JISX0212)
583 (modify-category-entry (make-char 'katakana-jisx0201) ?k)
584 (modify-category-entry (make-char 'katakana-jisx0201) ?j)
585 (modify-category-entry (make-char 'latin-jisx0201) ?r)
586 (modify-category-entry (make-char 'japanese-jisx0208) ?j)
587 (modify-category-entry (make-char 'japanese-jisx0212) ?j)
588 (modify-category-entry (make-char 'katakana-jisx0201) ?\|)
589 (modify-category-entry (make-char 'japanese-jisx0208) ?\|)
590 (modify-category-entry (make-char 'japanese-jisx0212) ?\|)
592 ;; Unicode equivalents of JISX0201-kana
595 (modify-category-entry (decode-char 'ucs c) ?k)
596 (modify-category-entry (decode-char 'ucs c) ?j)
597 (modify-category-entry (decode-char 'ucs c) ?\|)
603 ;; ?K is double width, ?k isn't specified
604 (modify-category-entry (decode-char 'ucs c) ?k)
605 (modify-category-entry (decode-char 'ucs c) ?j)
606 (modify-category-entry (decode-char 'ucs c) ?\|)
612 ;; ?H is actually defined to be double width
613 (modify-category-entry (decode-char 'ucs c) ?H)
614 ;;(modify-category-entry (decode-char 'ucs c) ?j)
615 (modify-category-entry (decode-char 'ucs c) ?\|)
619 ;; (modify-syntax-entry (make-char 'japanese-jisx0208) "w")
620 (modify-syntax-entry (make-char 'japanese-jisx0208 33) "_")
621 (modify-syntax-entry (make-char 'japanese-jisx0208 34) "_")
622 (modify-syntax-entry (make-char 'japanese-jisx0208 40) "_")
623 (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)))
625 (modify-syntax-entry (car chars) "w")
626 (setq chars (cdr chars))))
627 (let ((parens "
\e$B!J!K!L!M!N!O!P!Q!R!S!T!U!V!W!X!Y!Z![
\e(B" )
629 (dotimes (i (/ (length parens) 2))
630 (setq open (aref parens (* i 2))
631 close (aref parens (1+ (* i 2))))
632 (modify-syntax-entry open (format "(%c" close))
633 (modify-syntax-entry close (format ")%c" open))))
635 (modify-category-entry (make-char 'japanese-jisx0208 35) ?A)
636 (modify-category-entry (make-char 'japanese-jisx0208 36) ?H)
637 (modify-category-entry (make-char 'japanese-jisx0208 37) ?K)
638 (modify-category-entry (make-char 'japanese-jisx0208 38) ?G)
639 (modify-category-entry (make-char 'japanese-jisx0208 39) ?Y)
642 (modify-category-entry (make-char 'japanese-jisx0208 row) ?C)
643 (setq row (1+ row))))
644 (modify-category-entry ?
\e$B!<
\e(B ?K)
645 (let ((chars '(?
\e$B!+
\e(B ?
\e$B!,
\e(B)))
647 (modify-category-entry (car chars) ?K)
648 (modify-category-entry (car chars) ?H)
649 (setq chars (cdr chars))))
650 (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)))
652 (modify-category-entry (car chars) ?C)
653 (setq chars (cdr chars))))
655 (let ((tbl (standard-case-table)))
657 (set-case-syntax-pair (make-char 'japanese-jisx0208 #x23 (+ #x41 i))
658 (make-char 'japanese-jisx0208 #x23 (+ #x61 i)) tbl))
660 (set-case-syntax-pair (make-char 'japanese-jisx0208 #x26 (+ #x21 i))
661 (make-char 'japanese-jisx0208 #x26 (+ #x41 i)) tbl))
663 (set-case-syntax-pair (make-char 'japanese-jisx0208 #x27 (+ #x21 i))
664 (make-char 'japanese-jisx0208 #x27 (+ #x51 i)) tbl)))
667 ;; (modify-syntax-entry (make-char 'japanese-jisx0212) "w")
668 (modify-syntax-entry (make-char 'japanese-jisx0212 33) "_")
669 (modify-syntax-entry (make-char 'japanese-jisx0212 34) "_")
670 (modify-syntax-entry (make-char 'japanese-jisx0212 35) "_")
672 (modify-category-entry (make-char 'japanese-jisx0212 ) ?C)
675 ;; (modify-syntax-entry (make-char 'katakana-jisx0201) "w")
676 (let ((chars '(?
\e(I!
\e(B ?
\e(I$
\e(B ?
\e(I%
\e(B
678 ?
\e$,3sa
\e(B ?
\e$,3sd
\e(B ?
\e$,3se
\e(B)))
680 (modify-syntax-entry (car chars) ".")
681 (setq chars (cdr chars))))
683 (modify-syntax-entry ?\
\e(I"
\e(B "(
\e(I#
\e(B")
684 (modify-syntax-entry ?\
\e(I#
\e(B "(
\e(I"
\e(B")
686 ;; Korean character set (KSC5601)
688 ;; (modify-syntax-entry (make-char 'korean-ksc5601) "w")
689 (modify-syntax-entry (make-char 'korean-ksc5601 33) "_")
690 (modify-syntax-entry (make-char 'korean-ksc5601 34) "_")
691 (modify-syntax-entry (make-char 'korean-ksc5601 38) "_")
692 (modify-syntax-entry (make-char 'korean-ksc5601 39) "_")
693 (modify-syntax-entry (make-char 'korean-ksc5601 40) "_")
694 (modify-syntax-entry (make-char 'korean-ksc5601 41) "_")
696 (modify-category-entry (make-char 'korean-ksc5601) ?h)
697 (modify-category-entry (make-char 'korean-ksc5601 35) ?A)
698 (modify-category-entry (make-char 'korean-ksc5601 37) ?G)
699 (modify-category-entry (make-char 'korean-ksc5601 42) ?H)
700 (modify-category-entry (make-char 'korean-ksc5601 43) ?K)
701 (modify-category-entry (make-char 'korean-ksc5601 44) ?Y)
703 (let ((parens "
\e$(C!2!3!4!5!6!7!8!9!:!;!<!=#(#)#[#]#{#}
\e(B" )
705 (dotimes (i (/ (length parens) 2))
706 (setq open (aref parens (* i 2))
707 close (aref parens (1+ (* i 2))))
708 (modify-syntax-entry open (format "(%c" close))
709 (modify-syntax-entry close (format ")%c" open))))
711 (let ((tbl (standard-case-table)))
713 (set-case-syntax-pair (make-char 'korean-ksc5601 #x23 (+ #x41 i))
714 (make-char 'korean-ksc5601 #x23 (+ #x61 i)) tbl))
716 (set-case-syntax-pair (make-char 'korean-ksc5601 #x25 (+ #x21 i))
717 (make-char 'korean-ksc5601 #x25 (+ #x30 i)) tbl))
719 (set-case-syntax-pair (make-char 'korean-ksc5601 #x25 (+ #x41 i))
720 (make-char 'korean-ksc5601 #x25 (+ #x61 i)) tbl))
722 (set-case-syntax-pair (make-char 'korean-ksc5601 #x2C (+ #x21 i))
723 (make-char 'korean-ksc5601 #x2C (+ #x51 i)) tbl)))
725 ;; Latin character set (latin-1,2,3,4,5,8,9)
727 (modify-category-entry (make-char 'latin-iso8859-1) ?l)
728 (modify-category-entry (make-char 'latin-iso8859-2) ?l)
729 (modify-category-entry (make-char 'latin-iso8859-3) ?l)
730 (modify-category-entry (make-char 'latin-iso8859-4) ?l)
731 (modify-category-entry (make-char 'latin-iso8859-9) ?l)
732 (modify-category-entry (make-char 'latin-iso8859-14) ?l)
733 (modify-category-entry (make-char 'latin-iso8859-15) ?l)
735 (modify-category-entry (make-char 'latin-iso8859-1 160) ?\ )
736 (modify-category-entry (make-char 'latin-iso8859-2 160) ?\ )
737 (modify-category-entry (make-char 'latin-iso8859-3 160) ?\ )
738 (modify-category-entry (make-char 'latin-iso8859-4 160) ?\ )
739 (modify-category-entry (make-char 'latin-iso8859-9 160) ?\ )
740 (modify-category-entry (make-char 'latin-iso8859-14 160) ?\ )
741 (modify-category-entry (make-char 'latin-iso8859-15 160) ?\ )
745 (modify-category-entry (make-char 'lao) ?o)
746 (dotimes (i (1+ (- #xeff #xe80)))
747 (modify-category-entry (decode-char 'ucs (+ i #xe80)) ?o))
749 (let ((deflist '(;; chars syntax category
750 ("
\e(1!
\e(B-
\e(1N
\e(B" "w" ?0) ; consonant
751 ("
\e(1PRS]`
\e(B-
\e(1d
\e(B" "w" ?1) ; vowel base
752 ("
\e(1QT
\e(B-
\e(1W[m
\e(B" "w" ?2) ; vowel upper
753 ("
\e(1XY
\e(B" "w" ?3) ; vowel lower
754 ("
\e(1h
\e(B-
\e(1l
\e(B" "w" ?4) ; tone mark
755 ("
\e(1\
\e(B" "w" ?9) ; semivowel lower
756 ("
\e(1p
\e(B-
\e(1y
\e(B" "w" ?6) ; digit
757 ("
\e(1Of
\e(B" "_" ?5) ; symbol
758 ;; Unicode equivalents
759 ("
\e$,1D!
\e(B-
\e$,1DN
\e(B" "w" ?0) ; consonant
760 ("
\e$,1DPDRDSD]D`
\e(B-
\e$,1Dd
\e(B" "w" ?1) ; vowel base
761 ("
\e$,1DQDT
\e(B-
\e$,1DWD[Dm
\e(B" "w" ?2) ; vowel upper
762 ("
\e$,1DXDY
\e(B" "w" ?3) ; vowel lower
763 ("
\e$,1Dh
\e(B-
\e$,1Dk
\e(B" "w" ?4) ; tone mark
764 ("
\e$,1D\D]
\e(B" "w" ?9) ; semivowel lower
765 ("
\e$,1Dp
\e(B-
\e$,1Dy
\e(B" "w" ?6) ; digit
766 ("
\e$,1DODf
\e(B" "_" ?5) ; symbol
768 elm chars len syntax category to ch i)
770 (setq elm (car deflist))
771 (setq chars (car elm)
777 (if (= (aref chars i) ?-)
780 (setq ch (aref chars i)
783 (unless (string-equal syntax "w")
784 (modify-syntax-entry ch syntax))
785 (modify-category-entry ch category)
788 (setq deflist (cdr deflist))))
790 ;; Thai character set (TIS620)
792 (modify-category-entry (make-char 'thai-tis620) ?t)
793 (dotimes (i (1+ (- #xe7f #xe00)))
794 (modify-category-entry (decode-char 'ucs (+ i #xe00)) ?t))
796 (let ((deflist '(;; chars syntax category
797 ("
\e,T!
\e(B-
\e,TCEG
\e(B-
\e,TN
\e(B" "w" ?0) ; consonant
798 ("
\e,TDFPRS`
\e(B-
\e,Te
\e(B" "w" ?1) ; vowel base
799 ("
\e,TQT
\e(B-
\e,TWgn
\e(B" "w" ?2) ; vowel upper
800 ("
\e,TX
\e(B-
\e,TZ
\e(B" "w" ?3) ; vowel lower
801 ("
\e,Th
\e(B-
\e,Tm
\e(B" "w" ?4) ; tone mark
802 ("
\e,Tp
\e(B-
\e,Ty
\e(B" "w" ?6) ; digit
803 ("
\e,TOf_oz{
\e(B" "_" ?5) ; symbol
804 ;; Unicode equivalents
805 ("
\e$,1Ba
\e(B-
\e$,1C#C%C'
\e(B-
\e$,1C.
\e(B" "w" ?0) ; consonant
806 ("
\e$,1C$C&C0C2C3C@
\e(B-
\e$,1CE
\e(B" "w" ?1) ; vowel base
807 ("
\e$,1C1C4
\e(B-
\e$,1C7CGCN
\e(B" "w" ?2) ; vowel upper
808 ("
\e$,1C8
\e(B-
\e$,1C:
\e(B" "w" ?3) ; vowel lower
809 ("
\e$,1CH
\e(B-
\e$,1CM
\e(B" "w" ?4) ; tone mark
810 ("
\e$,1CP
\e(B-
\e$,1CY
\e(B" "w" ?6) ; digit
811 ("
\e$,1C/CFC?COCZC[
\e(B" "_" ?5) ; symbol
813 elm chars len syntax category to ch i)
815 (setq elm (car deflist))
816 (setq chars (car elm)
822 (if (= (aref chars i) ?-)
825 (setq ch (aref chars i)
828 (unless (string-equal syntax "w")
829 (modify-syntax-entry ch syntax))
830 (modify-category-entry ch category)
833 (setq deflist (cdr deflist))))
835 ;; Tibetan character set
837 (modify-category-entry (make-char 'tibetan) ?q)
838 (modify-category-entry (make-char 'tibetan-1-column) ?q)
839 (dotimes (i (1+ (- #xfff #xf00)))
840 (modify-category-entry (decode-char 'ucs (+ i #xf00)) ?q))
842 (let ((deflist '(;; chars syntax category
843 ("
\e4
\e$(7"!
\e0"!
\e1
\e(B-
\e4
\e$(7"J
\e0"J
\e1
\e4"K
\e0"K
\e1
\e(B" "w" ?0) ; consonant
844 ("
\e$(7#!
\e(B-
\e$(7#J#K#L#M!"!#
\e(B" "w" ?0) ;
845 ("
\e$(7$!
\e(B-
\e$(7$e
\e(B" "w" ?0) ;
846 ("
\e$(7%!
\e(B-
\e$(7%u
\e(B" "w" ?0) ;
847 ("
\e$(7"S"["\"]"^"a
\e(B" "w" ?2) ; upper vowel
848 ("
\e$(7"_"c"d"g"h"i"j"k"l
\e(B" "w" ?2) ; upper modifier
849 ("
\e$(7!I"Q"R"U"e!e!g
\e(B" "w" ?3) ; lowel vowel/modifier
850 ("
\e$(7!P
\e(B-
\e$(7!Y!Z
\e(B-
\e$(7!c
\e(B" "w" ?6) ; digit
851 ("
\e$(7!;!=
\e(B-
\e$(7!B!D"`
\e(B" "." ?|) ; line-break char
852 ("
\e$(8!;!=!?!@!A!D"`
\e(B" "." ?|) ;
853 ("
\e$(7!8!;!=
\e(B-
\e$(7!B!D"`!m!d
\e(B" "." ?>) ; prohibition
854 ("
\e$(8!;!=!?!@!A!D"`
\e(B" "." ?>) ;
855 ("
\e$(7!0
\e(B-
\e$(7!:!l#R#S"f
\e(B" "." ?<) ; prohibition
856 ("
\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
858 ;; Unicode version (not complete)
859 ("
\e$,1F
\e(B-
\e$,1FIFJ
\e(B" "w" ?0) ; consonant
860 ("
\e$,1Fp
\e(B-
\e$,1G9G:G;G<
\e(B" "w" ?0) ;
861 ("
\e$,1FRFZF[F\F]F`
\e(B" "w" ?2) ; upper vowel
862 ("
\e$,1F^FbFcFfFgFhFiFjFk
\e(B" "w" ?2) ; upper modifier
863 ("
\e$,1EYFPFQFTFdEuEw
\e(B" "w" ?3) ; lowel vowel/modifier
864 ("
\e$,1E`
\e(B-
\e$,1EiEj
\e(B-
\e$,1Es
\e(B" "w" ?6) ; digit
865 ("
\e$,1EKEM
\e(B-
\e$,1ERETF_
\e(B" "." ?|) ; line-break char
866 ("
\e$,1EHEKEM
\e(B-
\e$,1ERETF_E}Et
\e(B" "." ?>) ; prohibition
867 ("
\e$,1E@
\e(B-
\e$,1EJE|GAGBFe
\e(B" "." ?<) ; prohibition
868 ("
\e$,1ESEU
\e(B-
\e$,1EXEZ
\e(B-
\e$,1E_EvEx
\e(B-
\e$,1E{E~E
\7fG>G?
\e(B-
\e$,1GO
\e(B" "." ?q) ; others
870 elm chars len syntax category to ch i)
872 (setq elm (car deflist))
873 (setq chars (car elm)
879 (if (= (aref chars i) ?-)
882 (setq ch (aref chars i)
885 (unless (string-equal syntax "w")
886 (modify-syntax-entry ch syntax))
887 (modify-category-entry ch category)
890 (setq deflist (cdr deflist))))
892 ;; Vietnamese character set
894 (let ((lower (make-char 'vietnamese-viscii-lower))
895 (upper (make-char 'vietnamese-viscii-upper)))
896 ;; (modify-syntax-entry lower "w")
897 ;; (modify-syntax-entry upper "w")
898 (modify-category-entry lower ?v)
899 (modify-category-entry upper ?v)
900 (modify-category-entry lower ?l) ; To make a word with
901 (modify-category-entry upper ?l) ; latin characters.
904 (let ((tbl (standard-case-table))
907 (set-case-syntax-pair (make-char 'vietnamese-viscii-upper i)
908 (make-char 'vietnamese-viscii-lower i)
912 ;; Unicode (mule-unicode-0100-24ff)
914 (let ((tbl (standard-case-table)) c)
916 ;; Latin Extended-A, Latin Extended-B, IPA
919 (modify-category-entry (decode-char 'ucs c) ?l)
924 (and (or (<= c #x012e)
925 (and (>= c #x014a) (<= c #x0177)))
927 (set-case-syntax-pair
928 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl))
932 (set-case-syntax-pair
933 (decode-char 'ucs (1- c)) (decode-char 'ucs c) tbl))
937 ;; In some languages, such as Turkish, U+0049 LATIN CAPITAL LETTER I
938 ;; and U+0131 LATIN SMALL LETTER DOTLESS I make a case pair, and so
939 ;; do U+0130 LATIN CAPITAL LETTER I WITH DOT ABOVE and U+0069 LATIN
942 ;; We used to set up half of those correspondence unconditionally,
943 ;; but that makes searches slow. So now we don't set up either half
944 ;; of these correspondences by default.
946 ;; (set-downcase-syntax ?
\e$,1 P
\e(B ?i tbl)
947 ;; (set-upcase-syntax ?I ?
\e$,1 Q
\e(B tbl)
949 (set-case-syntax-pair ?
\e$,1 R
\e(B ?
\e$,1 S
\e(B tbl)
950 (set-case-syntax-pair ?
\e$,1 T
\e(B ?
\e$,1 U
\e(B tbl)
951 (set-case-syntax-pair ?
\e$,1 V
\e(B ?
\e$,1 W
\e(B tbl)
952 (set-case-syntax-pair ?
\e$,1!8
\e(B ?
\e,A
\7f\e(B tbl)
953 (set-case-syntax-pair ?
\e$,1!9
\e(B ?
\e$,1!:
\e(B tbl)
954 (set-case-syntax-pair ?
\e$,1!;
\e(B ?
\e$,1!<
\e(B tbl)
955 (set-case-syntax-pair ?
\e$,1!=
\e(B ?
\e$,1!>
\e(B tbl)
958 (set-case-syntax-pair ?
\e$,1!A
\e(B ?
\e$,1#S
\e(B tbl)
959 (set-case-syntax-pair ?
\e$,1!B
\e(B ?
\e$,1!C
\e(B tbl)
960 (set-case-syntax-pair ?
\e$,1!D
\e(B ?
\e$,1!E
\e(B tbl)
961 (set-case-syntax-pair ?
\e$,1!F
\e(B ?
\e$,1#T
\e(B tbl)
962 (set-case-syntax-pair ?
\e$,1!G
\e(B ?
\e$,1!H
\e(B tbl)
963 (set-case-syntax-pair ?
\e$,1!I
\e(B ?
\e$,1#V
\e(B tbl)
964 (set-case-syntax-pair ?
\e$,1!J
\e(B ?
\e$,1#W
\e(B tbl)
965 (set-case-syntax-pair ?
\e$,1!K
\e(B ?
\e$,1!L
\e(B tbl)
966 (set-case-syntax-pair ?
\e$,1!N
\e(B ?
\e$,1"=
\e(B tbl)
967 (set-case-syntax-pair ?
\e$,1!O
\e(B ?
\e$,1#Y
\e(B tbl)
968 (set-case-syntax-pair ?
\e$,1!P
\e(B ?
\e$,1#[
\e(B tbl)
969 (set-case-syntax-pair ?
\e$,1!Q
\e(B ?
\e$,1!R
\e(B tbl)
970 (set-case-syntax-pair ?
\e$,1!S
\e(B ?
\e$,1#`
\e(B tbl)
971 (set-case-syntax-pair ?
\e$,1!T
\e(B ?
\e$,1#c
\e(B tbl)
972 (set-case-syntax-pair ?
\e$,1!V
\e(B ?
\e$,1#i
\e(B tbl)
973 (set-case-syntax-pair ?
\e$,1!W
\e(B ?
\e$,1#h
\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!\
\e(B ?
\e$,1#o
\e(B tbl)
976 (set-case-syntax-pair ?
\e$,1!]
\e(B ?
\e$,1#r
\e(B tbl)
977 (set-case-syntax-pair ?
\e$,1!_
\e(B ?
\e$,1#u
\e(B tbl)
978 (set-case-syntax-pair ?
\e$,1!`
\e(B ?
\e$,1!a
\e(B tbl)
979 (set-case-syntax-pair ?
\e$,1!b
\e(B ?
\e$,1!c
\e(B tbl)
980 (set-case-syntax-pair ?
\e$,1!d
\e(B ?
\e$,1!e
\e(B tbl)
981 (set-case-syntax-pair ?
\e$,1!f
\e(B ?
\e$,1$
\e(B tbl)
982 (set-case-syntax-pair ?
\e$,1!g
\e(B ?
\e$,1!h
\e(B tbl)
983 (set-case-syntax-pair ?
\e$,1!i
\e(B ?
\e$,1$#
\e(B tbl)
984 (set-case-syntax-pair ?
\e$,1!l
\e(B ?
\e$,1!m
\e(B tbl)
985 (set-case-syntax-pair ?
\e$,1!n
\e(B ?
\e$,1$(
\e(B tbl)
986 (set-case-syntax-pair ?
\e$,1!o
\e(B ?
\e$,1!p
\e(B tbl)
987 (set-case-syntax-pair ?
\e$,1!q
\e(B ?
\e$,1$*
\e(B tbl)
988 (set-case-syntax-pair ?
\e$,1!r
\e(B ?
\e$,1$+
\e(B tbl)
989 (set-case-syntax-pair ?
\e$,1!s
\e(B ?
\e$,1!t
\e(B tbl)
990 (set-case-syntax-pair ?
\e$,1!u
\e(B ?
\e$,1!v
\e(B tbl)
991 (set-case-syntax-pair ?
\e$,1!w
\e(B ?
\e$,1$2
\e(B tbl)
992 (set-case-syntax-pair ?
\e$,1!x
\e(B ?
\e$,1!y
\e(B tbl)
993 (set-case-syntax-pair ?
\e$,1!|
\e(B ?
\e$,1!}
\e(B tbl)
994 (set-case-syntax-pair ?
\e$,1"$
\e(B ?
\e$,1"&
\e(B tbl)
995 (set-case-syntax-pair ?
\e$,1"%
\e(B ?
\e$,1"&
\e(B tbl)
996 (set-case-syntax-pair ?
\e$,1"'
\e(B ?
\e$,1")
\e(B tbl)
997 (set-case-syntax-pair ?
\e$,1"(
\e(B ?
\e$,1")
\e(B tbl)
998 (set-case-syntax-pair ?
\e$,1"*
\e(B ?
\e$,1",
\e(B tbl)
999 (set-case-syntax-pair ?
\e$,1"+
\e(B ?
\e$,1",
\e(B tbl)
1000 (set-case-syntax-pair ?
\e$,1"-
\e(B ?
\e$,1".
\e(B tbl)
1001 (set-case-syntax-pair ?
\e$,1"/
\e(B ?
\e$,1"0
\e(B tbl)
1002 (set-case-syntax-pair ?
\e$,1"1
\e(B ?
\e$,1"2
\e(B tbl)
1003 (set-case-syntax-pair ?
\e$,1"3
\e(B ?
\e$,1"4
\e(B tbl)
1004 (set-case-syntax-pair ?
\e$,1"5
\e(B ?
\e$,1"6
\e(B tbl)
1005 (set-case-syntax-pair ?
\e$,1"7
\e(B ?
\e$,1"8
\e(B tbl)
1006 (set-case-syntax-pair ?
\e$,1"9
\e(B ?
\e$,1":
\e(B tbl)
1007 (set-case-syntax-pair ?
\e$,1";
\e(B ?
\e$,1"<
\e(B tbl)
1008 (set-case-syntax-pair ?
\e$,1">
\e(B ?
\e$,1"?
\e(B tbl)
1009 (set-case-syntax-pair ?
\e$,1"@
\e(B ?
\e$,1"A
\e(B tbl)
1010 (set-case-syntax-pair ?
\e$,1"B
\e(B ?
\e$,1"C
\e(B tbl)
1011 (set-case-syntax-pair ?
\e$,1"D
\e(B ?
\e$,1"E
\e(B tbl)
1012 (set-case-syntax-pair ?
\e$,1"F
\e(B ?
\e$,1"G
\e(B tbl)
1013 (set-case-syntax-pair ?
\e$,1"H
\e(B ?
\e$,1"I
\e(B tbl)
1014 (set-case-syntax-pair ?
\e$,1"J
\e(B ?
\e$,1"K
\e(B tbl)
1015 (set-case-syntax-pair ?
\e$,1"L
\e(B ?
\e$,1"M
\e(B tbl)
1016 (set-case-syntax-pair ?
\e$,1"N
\e(B ?
\e$,1"O
\e(B tbl)
1017 ;; 01F0; F; 006A 030C; # LATIN SMALL LETTER J WITH CARON
1018 (set-case-syntax-pair ?
\e$,1"Q
\e(B ?
\e$,1"S
\e(B tbl)
1019 (set-case-syntax-pair ?
\e$,1"R
\e(B ?
\e$,1"S
\e(B tbl)
1020 (set-case-syntax-pair ?
\e$,1"T
\e(B ?
\e$,1"U
\e(B tbl)
1021 (set-case-syntax-pair ?
\e$,1"V
\e(B ?
\e$,1!U
\e(B tbl)
1022 (set-case-syntax-pair ?
\e$,1"W
\e(B ?
\e$,1!
\7f\e(B tbl)
1023 (set-case-syntax-pair ?
\e$,1"X
\e(B ?
\e$,1"Y
\e(B tbl)
1024 (set-case-syntax-pair ?
\e$,1"Z
\e(B ?
\e$,1"[
\e(B tbl)
1025 (set-case-syntax-pair ?
\e$,1"\
\e(B ?
\e$,1"]
\e(B tbl)
1026 (set-case-syntax-pair ?
\e$,1"^
\e(B ?
\e$,1"_
\e(B tbl)
1027 (set-case-syntax-pair ?
\e$,1"`
\e(B ?
\e$,1"a
\e(B tbl)
1028 (set-case-syntax-pair ?
\e$,1"b
\e(B ?
\e$,1"c
\e(B tbl)
1029 (set-case-syntax-pair ?
\e$,1"d
\e(B ?
\e$,1"e
\e(B tbl)
1030 (set-case-syntax-pair ?
\e$,1"f
\e(B ?
\e$,1"g
\e(B tbl)
1031 (set-case-syntax-pair ?
\e$,1"h
\e(B ?
\e$,1"i
\e(B tbl)
1032 (set-case-syntax-pair ?
\e$,1"j
\e(B ?
\e$,1"k
\e(B tbl)
1033 (set-case-syntax-pair ?
\e$,1"l
\e(B ?
\e$,1"m
\e(B tbl)
1034 (set-case-syntax-pair ?
\e$,1"n
\e(B ?
\e$,1"o
\e(B tbl)
1035 (set-case-syntax-pair ?
\e$,1"p
\e(B ?
\e$,1"q
\e(B tbl)
1036 (set-case-syntax-pair ?
\e$,1"r
\e(B ?
\e$,1"s
\e(B tbl)
1037 (set-case-syntax-pair ?
\e$,1"t
\e(B ?
\e$,1"u
\e(B tbl)
1038 (set-case-syntax-pair ?
\e$,1"v
\e(B ?
\e$,1"w
\e(B tbl)
1039 (set-case-syntax-pair ?
\e$,1"x
\e(B ?
\e$,1"y
\e(B tbl)
1040 (set-case-syntax-pair ?
\e$,1"z
\e(B ?
\e$,1"{
\e(B tbl)
1041 (set-case-syntax-pair ?
\e$,1"|
\e(B ?
\e$,1"}
\e(B tbl)
1042 (set-case-syntax-pair ?
\e$,1"~
\e(B ?
\e$,1"
\7f\e(B tbl)
1043 (set-case-syntax-pair ?
\e$,1#"
\e(B ?
\e$,1##
\e(B tbl)
1044 (set-case-syntax-pair ?
\e$,1#$
\e(B ?
\e$,1#%
\e(B tbl)
1045 (set-case-syntax-pair ?
\e$,1#&
\e(B ?
\e$,1#'
\e(B tbl)
1046 (set-case-syntax-pair ?
\e$,1#(
\e(B ?
\e$,1#)
\e(B tbl)
1047 (set-case-syntax-pair ?
\e$,1#*
\e(B ?
\e$,1#+
\e(B tbl)
1048 (set-case-syntax-pair ?
\e$,1#,
\e(B ?
\e$,1#-
\e(B tbl)
1049 (set-case-syntax-pair ?
\e$,1#.
\e(B ?
\e$,1#/
\e(B tbl)
1050 (set-case-syntax-pair ?
\e$,1#0
\e(B ?
\e$,1#1
\e(B tbl)
1051 (set-case-syntax-pair ?
\e$,1#2
\e(B ?
\e$,1#3
\e(B tbl)
1053 ;; Latin Extended Additional
1055 (while (<= c #x1ef9)
1056 (modify-category-entry (decode-char 'ucs c) ?l)
1057 (and (zerop (% c 2))
1058 (or (<= c #x1e94) (>= c #x1ea0))
1059 (set-case-syntax-pair
1060 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl))
1065 (while (<= c #x03ff)
1066 (modify-category-entry (decode-char 'ucs c) ?g)
1067 (if (or (and (>= c #x0391) (<= c #x03a1))
1068 (and (>= c #x03a3) (<= c #x03ab)))
1069 (set-case-syntax-pair
1070 (decode-char 'ucs c) (decode-char 'ucs (+ c 32)) tbl))
1074 (set-case-syntax-pair
1075 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl))
1077 (set-case-syntax-pair ?
\e$,1&f
\e(B ?
\e$,1',
\e(B tbl)
1078 (set-case-syntax-pair ?
\e$,1&h
\e(B ?
\e$,1'-
\e(B tbl)
1079 (set-case-syntax-pair ?
\e$,1&i
\e(B ?
\e$,1'.
\e(B tbl)
1080 (set-case-syntax-pair ?
\e$,1&j
\e(B ?
\e$,1'/
\e(B tbl)
1081 (set-case-syntax-pair ?
\e$,1&l
\e(B ?
\e$,1'L
\e(B tbl)
1082 (set-case-syntax-pair ?
\e$,1&n
\e(B ?
\e$,1'M
\e(B tbl)
1083 (set-case-syntax-pair ?
\e$,1&o
\e(B ?
\e$,1'N
\e(B tbl)
1088 (set-case-syntax-pair (decode-char 'ucs c)
1089 (decode-char 'ucs (+ c #x30)) tbl)
1094 (while (<= c #x1fff)
1095 (modify-category-entry (decode-char 'ucs c) ?g)
1096 (and (<= (logand c #x000f) 7)
1098 (not (memq c '(#x1f50 #x1f52 #x1f54 #x1f56)))
1099 (/= (logand c #x00f0) 7)
1100 (set-case-syntax-pair
1101 (decode-char 'ucs (+ c 8)) (decode-char 'ucs c) tbl))
1103 (set-case-syntax-pair ?
\e$,1qx
\e(B ?
\e$,1qp
\e(B tbl)
1104 (set-case-syntax-pair ?
\e$,1qy
\e(B ?
\e$,1qq
\e(B tbl)
1105 (set-case-syntax-pair ?
\e$,1qz
\e(B ?
\e$,1q0
\e(B tbl)
1106 (set-case-syntax-pair ?
\e$,1q{
\e(B ?
\e$,1q1
\e(B tbl)
1107 (set-case-syntax-pair ?
\e$,1q|
\e(B ?
\e$,1qs
\e(B tbl)
1108 (set-case-syntax-pair ?
\e$,1r(
\e(B ?
\e$,1q2
\e(B tbl)
1109 (set-case-syntax-pair ?
\e$,1r)
\e(B ?
\e$,1q3
\e(B tbl)
1110 (set-case-syntax-pair ?
\e$,1r*
\e(B ?
\e$,1q4
\e(B tbl)
1111 (set-case-syntax-pair ?
\e$,1r+
\e(B ?
\e$,1q5
\e(B tbl)
1112 (set-case-syntax-pair ?
\e$,1r,
\e(B ?
\e$,1r#
\e(B tbl)
1113 (set-case-syntax-pair ?
\e$,1r8
\e(B ?
\e$,1r0
\e(B tbl)
1114 (set-case-syntax-pair ?
\e$,1r9
\e(B ?
\e$,1r1
\e(B tbl)
1115 (set-case-syntax-pair ?
\e$,1r:
\e(B ?
\e$,1q6
\e(B tbl)
1116 (set-case-syntax-pair ?
\e$,1r;
\e(B ?
\e$,1q7
\e(B tbl)
1117 (set-case-syntax-pair ?
\e$,1rH
\e(B ?
\e$,1r@
\e(B tbl)
1118 (set-case-syntax-pair ?
\e$,1rI
\e(B ?
\e$,1rA
\e(B tbl)
1119 (set-case-syntax-pair ?
\e$,1rJ
\e(B ?
\e$,1q:
\e(B tbl)
1120 (set-case-syntax-pair ?
\e$,1rK
\e(B ?
\e$,1q;
\e(B tbl)
1121 (set-case-syntax-pair ?
\e$,1rL
\e(B ?
\e$,1rE
\e(B tbl)
1122 (set-case-syntax-pair ?
\e$,1rX
\e(B ?
\e$,1q8
\e(B tbl)
1123 (set-case-syntax-pair ?
\e$,1rY
\e(B ?
\e$,1q9
\e(B tbl)
1124 (set-case-syntax-pair ?
\e$,1rZ
\e(B ?
\e$,1q<
\e(B tbl)
1125 (set-case-syntax-pair ?
\e$,1r[
\e(B ?
\e$,1q=
\e(B tbl)
1126 (set-case-syntax-pair ?
\e$,1r\
\e(B ?
\e$,1rS
\e(B tbl)
1130 (while (<= c #x04ff)
1131 (modify-category-entry (decode-char 'ucs c) ?y)
1134 (set-case-syntax-pair
1135 (decode-char 'ucs c) (decode-char 'ucs (+ c 80)) tbl))
1138 (set-case-syntax-pair
1139 (decode-char 'ucs c) (decode-char 'ucs (+ c 32)) tbl))
1140 (and (zerop (% c 2))
1141 (or (and (>= c #x0460) (<= c #x0480))
1142 (and (>= c #x048c) (<= c #x04be))
1143 (and (>= c #x04d0) (<= c #x04f4)))
1144 (set-case-syntax-pair
1145 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl))
1147 (set-case-syntax-pair ?
\e$,1*!
\e(B ?
\e$,1*"
\e(B tbl)
1148 (set-case-syntax-pair ?
\e$,1*#
\e(B ?
\e$,1*$
\e(B tbl)
1149 (set-case-syntax-pair ?
\e$,1*'
\e(B ?
\e$,1*(
\e(B tbl)
1150 (set-case-syntax-pair ?
\e$,1*+
\e(B ?
\e$,1*,
\e(B tbl)
1151 (set-case-syntax-pair ?
\e$,1*X
\e(B ?
\e$,1*Y
\e(B tbl)
1153 ;; general punctuation
1155 (while (<= c #x200b)
1156 (set-case-syntax (decode-char 'ucs c) " " tbl)
1159 (while (<= c #x2016)
1160 (set-case-syntax (decode-char 'ucs c) "_" tbl)
1162 ;; Punctuation syntax for quotation marks (like `)
1163 (while (<= c #x201f)
1164 (set-case-syntax (decode-char 'ucs c) "." tbl)
1166 (while (<= c #x2027)
1167 (set-case-syntax (decode-char 'ucs c) "_" tbl)
1172 (while (<= c #x216f)
1173 (set-case-syntax-pair (decode-char 'ucs c)
1174 (decode-char 'ucs (+ c #x10)) tbl)
1179 (while (<= c #x24cf)
1180 (set-case-syntax-pair (decode-char 'ucs c)
1181 (decode-char 'ucs (+ c 26)) tbl)
1182 (modify-category-entry (decode-char 'ucs c) ?l)
1183 (modify-category-entry (decode-char 'ucs (+ c 26)) ?l)
1188 (while (<= c #xff3a)
1189 (set-case-syntax-pair (decode-char 'ucs c)
1190 (decode-char 'ucs (+ c #x20)) tbl)
1191 (modify-category-entry (decode-char 'ucs c) ?l)
1192 (modify-category-entry (decode-char 'ucs (+ c #x20)) ?l)
1195 ;; Combining diacritics
1198 (modify-category-entry (decode-char 'ucs c) ?^)
1203 (while (<= c #x20e3)
1204 (modify-category-entry (decode-char 'ucs c) ?^)
1207 ;; Fixme: syntax for symbols &c
1211 '("
\e$,1sEsF
\e(B" ; U+2045 U+2046
1212 "
\e$,1s}s~
\e(B" ; U+207D U+207E
1213 "
\e$,1t-t.
\e(B" ; U+208D U+208E
1214 "
\e$,1{){*
\e(B" ; U+2329 U+232A
1215 "
\e$,1|T|U
\e(B" ; U+23B4 U+23B5
1216 "
\e$,2&H&I
\e(B" ; U+2768 U+2769
1217 "
\e$,2&J&K
\e(B" ; U+276A U+276B
1218 "
\e$,2&L&M
\e(B" ; U+276C U+276D
1219 "
\e$,2&P&Q
\e(B" ; U+2770 U+2771
1220 "
\e$,2&R&S
\e(B" ; U+2772 U+2773
1221 "
\e$,2&T&U
\e(B" ; U+2774 U+2775
1222 "
\e$,2'f'g
\e(B" ; U+27E6 U+27E7
1223 "
\e$,2'h'i
\e(B" ; U+27E8 U+27E9
1224 "
\e$,2'j'k
\e(B" ; U+27EA U+27EB
1225 "
\e$,2,#,$
\e(B" ; U+2983 U+2984
1226 "
\e$,2,%,&
\e(B" ; U+2985 U+2986
1227 "
\e$,2,',(
\e(B" ; U+2987 U+2988
1228 "
\e$,2,),*
\e(B" ; U+2989 U+298A
1229 "
\e$,2,+,,
\e(B" ; U+298B U+298C
1230 "
\e$,2,-,.
\e(B" ; U+298D U+298E
1231 "
\e$,2,/,0
\e(B" ; U+298F U+2990
1232 "
\e$,2,1,2
\e(B" ; U+2991 U+2992
1233 "
\e$,2,3,4
\e(B" ; U+2993 U+2994
1234 "
\e$,2,5,6
\e(B" ; U+2995 U+2996
1235 "
\e$,2,7,8
\e(B" ; U+2997 U+2998
1236 "
\e$,2-<-=
\e(B" ; U+29FC U+29FD
1237 "
\e$,2=H=I
\e(B" ; U+3008 U+3009
1238 "
\e$,2=J=K
\e(B" ; U+300A U+300B
1239 "
\e$,2=L=M
\e(B" ; U+300C U+300D
1240 "
\e$,2=N=O
\e(B" ; U+300E U+300F
1241 "
\e$,2=P=Q
\e(B" ; U+3010 U+3011
1242 "
\e$,2=T=U
\e(B" ; U+3014 U+3015
1243 "
\e$,2=V=W
\e(B" ; U+3016 U+3017
1244 "
\e$,2=X=Y
\e(B" ; U+3018 U+3019
1245 "
\e$,2=Z=[
\e(B" ; U+301A U+301B
1246 "
\e$,3m~m
\7f\e(B" ; U+FD3E U+FD3F
1247 "
\e$,3pUpV
\e(B" ; U+FE35 U+FE36
1248 "
\e$,3pWpX
\e(B" ; U+FE37 U+FE38
1249 "
\e$,3pYpZ
\e(B" ; U+FE39 U+FE3A
1250 "
\e$,3p[p\
\e(B" ; U+FE3B U+FE3C
1251 "
\e$,3p]p^
\e(B" ; U+FE3D U+FE3E
1252 "
\e$,3p_p`
\e(B" ; U+FE3F U+FE40
1253 "
\e$,3papb
\e(B" ; U+FE41 U+FE42
1254 "
\e$,3pcpd
\e(B" ; U+FE43 U+FE44
1255 "
\e$,3pypz
\e(B" ; U+FE59 U+FE5A
1256 "
\e$,3p{p|
\e(B" ; U+FE5B U+FE5C
1257 "
\e$,3p}p~
\e(B" ; U+FE5D U+FE5E
1258 "
\e$,3rhri
\e(B" ; U+FF08 U+FF09
1259 "
\e$,3s;s=
\e(B" ; U+FF3B U+FF3D
1260 "
\e$,3s[s]
\e(B" ; U+FF5B U+FF5D
1261 "
\e$,3s_s`
\e(B" ; U+FF5F U+FF60
1262 "
\e$,3sbsc
\e(B" ; U+FF62 U+FF63
1265 (modify-syntax-entry (aref elt 0) (string ?\( (aref elt 1)))
1266 (modify-syntax-entry (aref elt 1) (string ?\) (aref elt 0)))))
1269 ;;; Setting word boundary.
1271 (setq word-combining-categories
1277 (setq word-separating-categories ; (2-byte character sets)
1278 '((?A . ?K) ; Alpha numeric - Katakana
1279 (?A . ?C) ; Alpha numeric - Chinese
1280 (?H . ?A) ; Hiragana - Alpha numeric
1281 (?H . ?K) ; Hiragana - Katakana
1282 (?H . ?C) ; Hiragana - Chinese
1283 (?K . ?A) ; Katakana - Alpha numeric
1284 (?K . ?C) ; Katakana - Chinese
1285 (?C . ?A) ; Chinese - Alpha numeric
1286 (?C . ?K) ; Chinese - Katakana
1290 ;; For each character set, put the information of the most proper
1291 ;; coding system to encode it by `preferred-coding-system' property.
1293 (let ((l '((latin-iso8859-1 . iso-latin-1)
1294 (latin-iso8859-2 . iso-latin-2)
1295 (latin-iso8859-3 . iso-latin-3)
1296 (latin-iso8859-4 . iso-latin-4)
1297 (thai-tis620 . thai-tis620)
1298 (greek-iso8859-7 . greek-iso-8bit)
1299 (arabic-iso8859-6 . iso-2022-7bit)
1300 (hebrew-iso8859-8 . hebrew-iso-8bit)
1301 (katakana-jisx0201 . japanese-shift-jis)
1302 (latin-jisx0201 . japanese-shift-jis)
1303 (cyrillic-iso8859-5 . cyrillic-iso-8bit)
1304 (latin-iso8859-9 . iso-latin-5)
1305 (japanese-jisx0208-1978 . iso-2022-jp)
1306 (chinese-gb2312 . cn-gb-2312)
1307 (japanese-jisx0208 . iso-2022-jp)
1308 (korean-ksc5601 . iso-2022-kr)
1309 (japanese-jisx0212 . iso-2022-jp)
1310 (chinese-cns11643-1 . iso-2022-cn)
1311 (chinese-cns11643-2 . iso-2022-cn)
1312 (chinese-big5-1 . chinese-big5)
1313 (chinese-big5-2 . chinese-big5)
1314 (chinese-sisheng . iso-2022-7bit)
1315 (ipa . iso-2022-7bit)
1316 (vietnamese-viscii-lower . vietnamese-viscii)
1317 (vietnamese-viscii-upper . vietnamese-viscii)
1318 (arabic-digit . iso-2022-7bit)
1319 (arabic-1-column . iso-2022-7bit)
1320 (ascii-right-to-left . iso-2022-7bit)
1322 (arabic-2-column . iso-2022-7bit)
1323 (indian-is13194 . devanagari)
1324 (indian-glyph . devanagari)
1325 (tibetan-1-column . tibetan)
1326 (ethiopic . iso-2022-7bit)
1327 (chinese-cns11643-3 . iso-2022-cn)
1328 (chinese-cns11643-4 . iso-2022-cn)
1329 (chinese-cns11643-5 . iso-2022-cn)
1330 (chinese-cns11643-6 . iso-2022-cn)
1331 (chinese-cns11643-7 . iso-2022-cn)
1332 (indian-2-column . devanagari)
1334 (latin-iso8859-14 . iso-latin-8)
1335 (latin-iso8859-15 . iso-latin-9))))
1337 (put-charset-property (car (car l)) 'preferred-coding-system (cdr (car l)))
1341 ;; Setup auto-fill-chars for charsets that should invoke auto-filling.
1342 ;; SPACE and NEWLINE are already set. Also put `nospace-between-words'
1343 ;; property on the charsets.
1344 (let ((l '(katakana-jisx0201
1345 japanese-jisx0208 japanese-jisx0212
1346 chinese-gb2312 chinese-big5-1 chinese-big5-2)))
1348 (aset auto-fill-chars (make-char (car l)) t)
1349 (put-charset-property (car l) 'nospace-between-words t)
1353 (setq utf-translate-cjk-mode saved-utf-translate-cjk-mode)
1354 (makunbound 'saved-utf-translate-cjk-mode)
1357 ;; coding: iso-2022-7bit
1360 ;; arch-tag: 85889c35-9f4d-4912-9bf5-82de31b0d42d
1361 ;;; characters.el ends here