1 ;;; characters.el --- set syntax and category for multibyte characters
3 ;; Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
7 ;; Keywords: multibyte character, character set, syntax, category
9 ;; This file is part of GNU Emacs.
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)
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.
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.
28 ;; This file contains multibyte characters. Save this file always in
29 ;; the coding system `iso-2022-7bit'.
31 ;; This file does not define the syntax for Latin-N character sets;
32 ;; those are defined by the files latin-N.el.
36 ;; We must set utf-translate-cjk-mode to nil while loading this file
37 ;; to avoid translating CJK characters in decode-char.
38 (defvar saved-utf-translate-cjk-mode utf-translate-cjk-mode
)
39 (setq utf-translate-cjk-mode nil
)
41 ;;; Predefined categories.
43 ;; For each character set.
45 (define-category ?a
"ASCII")
46 (define-category ?l
"Latin")
47 (define-category ?t
"Thai")
48 (define-category ?g
"Greek")
49 (define-category ?b
"Arabic")
50 (define-category ?w
"Hebrew")
51 (define-category ?y
"Cyrillic")
52 (define-category ?k
"Japanese katakana")
53 (define-category ?r
"Japanese roman")
54 (define-category ?c
"Chinese")
55 (define-category ?j
"Japanese")
56 (define-category ?h
"Korean")
57 (define-category ?e
"Ethiopic (Ge'ez)")
58 (define-category ?v
"Vietnamese")
59 (define-category ?i
"Indian")
60 (define-category ?o
"Lao")
61 (define-category ?q
"Tibetan")
63 ;; For each group (row) of 2-byte character sets.
65 (define-category ?A
"Alpha-numeric characters of 2-byte character sets")
66 (define-category ?C
"Chinese (Han) characters of 2-byte character sets")
67 (define-category ?G
"Greek characters of 2-byte character sets")
68 (define-category ?H
"Japanese Hiragana characters of 2-byte character sets")
69 (define-category ?K
"Japanese Katakana characters of 2-byte character sets")
70 (define-category ?N
"Korean Hangul characters of 2-byte character sets")
71 (define-category ?Y
"Cyrillic characters of 2-byte character sets")
72 (define-category ?I
"Indian Glyphs")
74 ;; For phonetic classifications.
76 (define-category ?
0 "consonant")
77 (define-category ?
1 "base (independent) vowel")
78 (define-category ?
2 "upper diacritical mark (including upper vowel)")
79 (define-category ?
3 "lower diacritical mark (including lower vowel)")
80 (define-category ?
4 "tone mark")
81 (define-category ?
5 "symbol")
82 (define-category ?
6 "digit")
83 (define-category ?
7 "vowel-modifying diacritical mark")
84 (define-category ?
8 "vowel-signs")
85 (define-category ?
9 "semivowel lower")
88 (define-category ?|
"While filling, we can break a line at this character.")
90 ;; For indentation calculation.
92 "This character counts as a space for indentation purposes.")
94 ;; Keep the following for `kinsoku' processing. See comments in
96 (define-category ?
> "A character which can't be placed at beginning of line.")
97 (define-category ?
< "A character which can't be placed at end of line.")
100 (define-category ?^
"Combining diacritic or mark")
102 ;;; Setting syntax and category.
107 (while (< ch
127) ; All ASCII characters have
108 (modify-category-entry ch ?a
) ; the category `a' (ASCII)
109 (modify-category-entry ch ?l
) ; and `l' (Latin).
112 ;; Arabic character set
114 (let ((charsets '(arabic-iso8859-6
119 ;; (modify-syntax-entry (make-char (car charsets)) "w")
120 (modify-category-entry (make-char (car charsets
)) ?b
)
121 (setq charsets
(cdr charsets
))))
124 (modify-category-entry (decode-char 'ucs ch
) ?b
)
127 (while (<= ch
#xfdff
)
128 (modify-category-entry (decode-char 'ucs ch
) ?b
)
131 (while (<= ch
#xfefe
)
132 (modify-category-entry (decode-char 'ucs ch
) ?b
)
135 ;; Chinese character set (GB2312)
137 ;; (modify-syntax-entry (make-char 'chinese-gb2312) "w")
138 (modify-syntax-entry (make-char 'chinese-gb2312
33) "_")
139 (modify-syntax-entry (make-char 'chinese-gb2312
34) "_")
140 (modify-syntax-entry (make-char 'chinese-gb2312
41) "_")
141 (modify-syntax-entry ?\
\e$A
!2\e(B "(\e$A!3\e(B")
142 (modify-syntax-entry ?\
\e$A
!4\e(B "(\e$A!5\e(B")
143 (modify-syntax-entry ?\
\e$A
!6\e(B "(\e$A!7\e(B")
144 (modify-syntax-entry ?\
\e$A
!8\e(B "(\e$A!9\e(B")
145 (modify-syntax-entry ?\
\e$A
!:\e(B "(\e$A!;\e(B")
146 (modify-syntax-entry ?\
\e$A
!<\e(B "(\e$A!=\e(B")
147 (modify-syntax-entry ?\
\e$A
!>\e(B "(\e$A!?\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
!3\e(B ")\e$A!2\e(B")
152 (modify-syntax-entry ?\
\e$A
!5\e(B ")\e$A!4\e(B")
153 (modify-syntax-entry ?\
\e$A
!7\e(B ")\e$A!6\e(B")
154 (modify-syntax-entry ?\
\e$A
!9\e(B ")\e$A!8\e(B")
155 (modify-syntax-entry ?\
\e$A
!;\e(B ")\e$A!:\e(B")
156 (modify-syntax-entry ?\
\e$A
!=\e(B ")\e$A!<\e(B")
157 (modify-syntax-entry ?\
\e$A
!?
\e(B ")\e$A!>\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")
162 (let ((chars "\e$A#,!"!##.
!$
#;#:#?#!!C!-!'#|#_!.!/!0!1#"!e#`!d\e(B"))
163 (dotimes (i (length chars
))
164 (modify-syntax-entry (aref chars i
) ".")))
166 (modify-category-entry (make-char 'chinese-gb2312
) ?c
)
167 (modify-category-entry (make-char 'chinese-gb2312
) ?\|
)
168 (modify-category-entry (make-char 'chinese-gb2312
35) ?A
)
169 (modify-category-entry (make-char 'chinese-gb2312
36) ?H
)
170 (modify-category-entry (make-char 'chinese-gb2312
37) ?K
)
171 (modify-category-entry (make-char 'chinese-gb2312
38) ?G
)
172 (modify-category-entry (make-char 'chinese-gb2312
39) ?Y
)
175 (modify-category-entry (make-char 'chinese-gb2312 row
) ?C
)
176 (setq row
(1+ row
))))
178 ;; Chinese character set (BIG5)
180 (let ((from (decode-big5-char #xA141
))
181 (to (decode-big5-char #xA15D
)))
183 (modify-syntax-entry from
".")
184 (setq from
(1+ from
))))
185 (let ((from (decode-big5-char #xA1A5
))
186 (to (decode-big5-char #xA1AD
)))
188 (modify-syntax-entry from
".")
189 (setq from
(1+ from
))))
190 (let ((from (decode-big5-char #xA1AD
))
191 (to (decode-big5-char #xA2AF
)))
193 (modify-syntax-entry from
"_")
194 (setq from
(1+ from
))))
196 (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")
198 (dotimes (i (/ (length parens
) 2))
199 (setq open
(aref parens
(* i
2))
200 close
(aref parens
(1+ (* i
2))))
201 (modify-syntax-entry open
(format "(%c" close
))
202 (modify-syntax-entry close
(format ")%c" open
))))
204 (let ((generic-big5-1-char (make-char 'chinese-big5-1
))
205 (generic-big5-2-char (make-char 'chinese-big5-2
)))
206 ;; (modify-syntax-entry generic-big5-1-char "w")
207 ;; (modify-syntax-entry generic-big5-2-char "w")
209 (modify-category-entry generic-big5-1-char ?c
)
210 (modify-category-entry generic-big5-2-char ?c
)
212 (modify-category-entry generic-big5-1-char ?C
)
213 (modify-category-entry generic-big5-2-char ?C
)
215 (modify-category-entry generic-big5-1-char ?\|
)
216 (modify-category-entry generic-big5-2-char ?\|
))
219 ;; Chinese character set (CNS11643)
221 (let ((cns-list '(chinese-cns11643-1
230 (setq generic-char
(make-char (car cns-list
)))
231 ;; (modify-syntax-entry generic-char "w")
232 (modify-category-entry generic-char ?c
)
233 (modify-category-entry generic-char ?C
)
234 (modify-category-entry generic-char ?|
)
235 (setq cns-list
(cdr cns-list
))))
237 (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")
239 (dotimes (i (/ (length parens
) 2))
240 (setq open
(aref parens
(* i
2))
241 close
(aref parens
(1+ (* i
2))))
242 (modify-syntax-entry open
(format "(%c" close
))
243 (modify-syntax-entry close
(format ")%c" open
))))
245 ;; Cyrillic character set (ISO-8859-5)
247 (modify-category-entry (make-char 'cyrillic-iso8859-5
) ?y
)
249 (modify-syntax-entry (make-char 'cyrillic-iso8859-5
160) " ")
250 (modify-syntax-entry ?
\e,L-
\e(B ".")
251 (modify-syntax-entry ?
\e,Lp
\e(B ".")
252 (modify-syntax-entry ?
\e,L
}\e(B ".")
253 (let ((tbl (standard-case-table)))
254 (set-case-syntax-pair ?
\e,L
!\e(B ?
\e,Lq
\e(B tbl
)
255 (set-case-syntax-pair ?
\e,L
"\e(B ?\e,Lr\e(B tbl)
256 (set-case-syntax-pair ?\e,L#\e(B ?\e,Ls\e(B tbl)
257 (set-case-syntax-pair ?\e,L$\e(B ?\e,Lt\e(B tbl)
258 (set-case-syntax-pair ?\e,L%\e(B ?\e,Lu\e(B tbl)
259 (set-case-syntax-pair ?\e,L&\e(B ?\e,Lv\e(B tbl)
260 (set-case-syntax-pair ?\e,L'\e(B ?\e,Lw\e(B tbl)
261 (set-case-syntax-pair ?\e,L(\e(B ?\e,Lx\e(B tbl)
262 (set-case-syntax-pair ?\e,L)\e(B ?\e,Ly\e(B tbl)
263 (set-case-syntax-pair ?\e,L*\e(B ?\e,Lz\e(B tbl)
264 (set-case-syntax-pair ?\e,L+\e(B ?\e,L{\e(B tbl)
265 (set-case-syntax-pair ?\e,L,\e(B ?\e,L|\e(B tbl)
266 (set-case-syntax-pair ?\e,L.\e(B ?\e,L~\e(B tbl)
267 (set-case-syntax-pair ?\e,L/\e(B ?\e,L\7f\e(B tbl)
268 (set-case-syntax-pair ?\e,L0\e(B ?\e,LP\e(B tbl)
269 (set-case-syntax-pair ?\e,L1\e(B ?\e,LQ\e(B tbl)
270 (set-case-syntax-pair ?\e,L2\e(B ?\e,LR\e(B tbl)
271 (set-case-syntax-pair ?\e,L3\e(B ?\e,LS\e(B tbl)
272 (set-case-syntax-pair ?\e,L4\e(B ?\e,LT\e(B tbl)
273 (set-case-syntax-pair ?\e,L5\e(B ?\e,LU\e(B tbl)
274 (set-case-syntax-pair ?\e,L6\e(B ?\e,LV\e(B tbl)
275 (set-case-syntax-pair ?\e,L7\e(B ?\e,LW\e(B tbl)
276 (set-case-syntax-pair ?\e,L8\e(B ?\e,LX\e(B tbl)
277 (set-case-syntax-pair ?\e,L9\e(B ?\e,LY\e(B tbl)
278 (set-case-syntax-pair ?\e,L:\e(B ?\e,LZ\e(B tbl)
279 (set-case-syntax-pair ?\e,L;\e(B ?\e,L[\e(B tbl)
280 (set-case-syntax-pair ?\e,L<\e(B ?\e,L\\e(B tbl)
281 (set-case-syntax-pair ?\e,L=\e(B ?\e,L]\e(B tbl)
282 (set-case-syntax-pair ?\e,L>\e(B ?\e,L^\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,LA\e(B ?\e,La\e(B tbl)
286 (set-case-syntax-pair ?\e,LB\e(B ?\e,Lb\e(B tbl)
287 (set-case-syntax-pair ?\e,LC\e(B ?\e,Lc\e(B tbl)
288 (set-case-syntax-pair ?\e,LD\e(B ?\e,Ld\e(B tbl)
289 (set-case-syntax-pair ?\e,LE\e(B ?\e,Le\e(B tbl)
290 (set-case-syntax-pair ?\e,LF\e(B ?\e,Lf\e(B tbl)
291 (set-case-syntax-pair ?\e,LG\e(B ?\e,Lg\e(B tbl)
292 (set-case-syntax-pair ?\e,LH\e(B ?\e,Lh\e(B tbl)
293 (set-case-syntax-pair ?\e,LI\e(B ?\e,Li\e(B tbl)
294 (set-case-syntax-pair ?\e,LJ\e(B ?\e,Lj\e(B tbl)
295 (set-case-syntax-pair ?\e,LK\e(B ?\e,Lk\e(B tbl)
296 (set-case-syntax-pair ?\e,LL\e(B ?\e,Ll\e(B tbl)
297 (set-case-syntax-pair ?\e,LM\e(B ?\e,Lm\e(B tbl)
298 (set-case-syntax-pair ?\e,LN\e(B ?\e,Ln\e(B tbl)
299 (set-case-syntax-pair ?\e,LO\e(B ?\e,Lo\e(B tbl)
300 (set-case-syntax-pair ?\e$,1(!\e(B ?\e$,1(q\e(B tbl)
301 (set-case-syntax-pair ?\e$,1("\e(B ?
\e$
,1(r\e(B tbl
)
302 (set-case-syntax-pair ?
\e$
,1(#\e(B ?
\e$
,1(s\e(B tbl
)
303 (set-case-syntax-pair ?
\e$
,1($
\e(B ?
\e$
,1(t\e(B tbl
)
304 (set-case-syntax-pair ?
\e$
,1(%
\e(B ?
\e$
,1(u\e(B tbl
)
305 (set-case-syntax-pair ?
\e$
,1(&\e(B ?
\e$
,1(v\e(B tbl
)
306 (set-case-syntax-pair ?
\e$
,1('\e(B ?
\e$
,1(w\e(B tbl
)
307 (set-case-syntax-pair ?
\e$
,1((\e(B ?
\e$
,1(x\e(B tbl
)
308 (set-case-syntax-pair ?
\e$
,1()\e(B ?
\e$
,1(y\e(B tbl
)
309 (set-case-syntax-pair ?
\e$
,1(*\e(B ?
\e$
,1(z\e(B tbl
)
310 (set-case-syntax-pair ?
\e$
,1(+\e(B ?
\e$
,1({\e(B tbl
)
311 (set-case-syntax-pair ?
\e$
,1(,\e(B ?
\e$
,1(|
\e(B tbl
)
312 (set-case-syntax-pair ?
\e$
,1(.
\e(B ?
\e$
,1(~
\e(B tbl
)
313 (set-case-syntax-pair ?
\e$
,1(/\e(B ?
\e$
,1(\7f\e(B tbl
)
314 (set-case-syntax-pair ?
\e$
,1(0\e(B ?
\e$
,1(P\e(B tbl
)
315 (set-case-syntax-pair ?
\e$
,1(1\e(B ?
\e$
,1(Q\e(B tbl
)
316 (set-case-syntax-pair ?
\e$
,1(2\e(B ?
\e$
,1(R\e(B tbl
)
317 (set-case-syntax-pair ?
\e$
,1(3\e(B ?
\e$
,1(S\e(B tbl
)
318 (set-case-syntax-pair ?
\e$
,1(4\e(B ?
\e$
,1(T\e(B tbl
)
319 (set-case-syntax-pair ?
\e$
,1(5\e(B ?
\e$
,1(U\e(B tbl
)
320 (set-case-syntax-pair ?
\e$
,1(6\e(B ?
\e$
,1(V\e(B tbl
)
321 (set-case-syntax-pair ?
\e$
,1(7\e(B ?
\e$
,1(W\e(B tbl
)
322 (set-case-syntax-pair ?
\e$
,1(8\e(B ?
\e$
,1(X\e(B tbl
)
323 (set-case-syntax-pair ?
\e$
,1(9\e(B ?
\e$
,1(Y\e(B tbl
)
324 (set-case-syntax-pair ?
\e$
,1(:\e(B ?
\e$
,1(Z\e(B tbl
)
325 (set-case-syntax-pair ?
\e$
,1(;\e(B ?\e$,1([\e(B tbl)
326 (set-case-syntax-pair ?
\e$
,1(<\e(B ?
\e$
,1(\
\e(B tbl
)
327 (set-case-syntax-pair ?
\e$
,1(=\e(B ?
\e$
,1(]\e(B tbl
)
328 (set-case-syntax-pair ?
\e$
,1(>\e(B ?
\e$
,1(^
\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(A\e(B ?
\e$
,1(a\e(B tbl
)
332 (set-case-syntax-pair ?
\e$
,1(B\e(B ?
\e$
,1(b\e(B tbl
)
333 (set-case-syntax-pair ?
\e$
,1(C\e(B ?
\e$
,1(c\e(B tbl
)
334 (set-case-syntax-pair ?
\e$
,1(D\e(B ?
\e$
,1(d\e(B tbl
)
335 (set-case-syntax-pair ?
\e$
,1(E\e(B ?
\e$
,1(e\e(B tbl
)
336 (set-case-syntax-pair ?
\e$
,1(F\e(B ?
\e$
,1(f\e(B tbl
)
337 (set-case-syntax-pair ?
\e$
,1(G\e(B ?
\e$
,1(g\e(B tbl
)
338 (set-case-syntax-pair ?
\e$
,1(H\e(B ?
\e$
,1(h\e(B tbl
)
339 (set-case-syntax-pair ?
\e$
,1(I\e(B ?
\e$
,1(i\e(B tbl
)
340 (set-case-syntax-pair ?
\e$
,1(J\e(B ?
\e$
,1(j\e(B tbl
)
341 (set-case-syntax-pair ?
\e$
,1(K\e(B ?
\e$
,1(k\e(B tbl
)
342 (set-case-syntax-pair ?
\e$
,1(L\e(B ?
\e$
,1(l\e(B tbl
)
343 (set-case-syntax-pair ?
\e$
,1(M\e(B ?
\e$
,1(m\e(B tbl
)
344 (set-case-syntax-pair ?
\e$
,1(N\e(B ?
\e$
,1(n\e(B tbl
)
345 (set-case-syntax-pair ?
\e$
,1(O\e(B ?
\e$
,1(o\e(B tbl
))
347 ;; Devanagari character set
349 ;;; Commented out since the categories appear not to be used anywhere
350 ;;; and word syntax is the default.
351 ;; (let ((deflist '(;; chars syntax category
352 ;; ("\e$(5!!!"!#\e(B" "w" ?7) ; vowel-modifying diacritical mark
353 ;; ; chandrabindu, anuswar, visarga
354 ;; ("\e$(5!$\e(B-\e$(5!2\e(B" "w" ?1) ; independent vowel
355 ;; ("\e$(5!3\e(B-\e$(5!X\e(B" "w" ?0) ; consonant
356 ;; ("\e$(5!Z\e(B-\e$(5!g\e(B" "w" ?8) ; matra
357 ;; ("\e$(5!q\e(B-\e$(5!z\e(B" "w" ?6) ; digit
358 ;; ;; Unicode equivalents
359 ;; ("\e$,15A5B5C\e(B" "w" ?7) ; vowel-modifying diacritical mark
360 ;; ; chandrabindu, anuswar, visarga
361 ;; ("\e$,15E\e(B-\e$,15M\e(B" "w" ?1) ; independent vowel
362 ;; ("\e$,15U\e(B-\e$,15y\e(B" "w" ?0) ; consonant
363 ;; ("\e$,15~\e(B-\e$,16)\e(B" "w" ?8) ; matra
364 ;; ("\e$,16F\e(B-\e$,16O\e(B" "w" ?6) ; digit
366 ;; elm chars len syntax category to ch i)
368 ;; (setq elm (car deflist))
369 ;; (setq chars (car elm)
370 ;; len (length chars)
371 ;; syntax (nth 1 elm)
372 ;; category (nth 2 elm)
375 ;; (if (= (aref chars i) ?-)
377 ;; to (aref chars i))
378 ;; (setq ch (aref chars i)
381 ;; (modify-syntax-entry ch syntax)
382 ;; (modify-category-entry ch category)
383 ;; (setq ch (1+ ch)))
385 ;; (setq deflist (cdr deflist))))
387 ;; Ethiopic character set
389 (modify-category-entry (make-char 'ethiopic
) ?e
)
390 ;; (modify-syntax-entry (make-char 'ethiopic) "w")
391 (dotimes (i (1+ (- #x137c
#x1200
)))
392 (modify-category-entry (decode-char 'ucs
(+ #x1200 i
)) ?e
))
393 (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
394 ;; Unicode equivalents of the above:
395 ?
\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)))
397 (modify-syntax-entry (car chars) ".
")
398 (setq chars (cdr chars))))
400 ;; Greek character set (ISO-8859-7)
402 (modify-category-entry (make-char 'greek-iso8859-7) ?g)
405 (modify-category-entry (decode-char 'ucs c) ?g)
410 ;; (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w
")
412 ;; (modify-syntax-entry (make-char 'greek-iso8859-7 160) "w
") ; NBSP
413 (modify-syntax-entry ?\e,F7\e(B ".
")
414 (modify-syntax-entry ?\e,F;\e(B ".
")
415 (modify-syntax-entry ?\e,F=\e(B ".
")
416 (let ((tbl (standard-case-table)))
417 ;; Fixme: non-letter syntax copied from latin-1, but that's dubious
419 (set-case-syntax ?\e,F!\e(B ".
" tbl)
420 (set-case-syntax ?\e,F"\e(B "." tbl
)
421 (set-case-syntax ?
\e,F
&\e(B "." tbl
)
422 (set-case-syntax ?
\e,F
&\e(B "_" tbl
)
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,F0
\e(B "_" tbl
)
430 (set-case-syntax ?
\e,F1
\e(B "_" tbl
)
431 ;; (set-case-syntax ?\e,F7\e(B "_" tbl)
432 ;; (set-case-syntax ?\e,F=\e(B "_" tbl)
433 (set-case-syntax-pair ?
\e,FA
\e(B ?
\e,Fa
\e(B tbl
)
434 (set-case-syntax-pair ?
\e,FB
\e(B ?
\e,Fb
\e(B tbl
)
435 (set-case-syntax-pair ?
\e,FC
\e(B ?
\e,Fc
\e(B tbl
)
436 (set-case-syntax-pair ?
\e,FD
\e(B ?
\e,Fd
\e(B tbl
)
437 (set-case-syntax-pair ?
\e,FE
\e(B ?
\e,Fe
\e(B tbl
)
438 (set-case-syntax-pair ?
\e,FF
\e(B ?
\e,Ff
\e(B tbl
)
439 (set-case-syntax-pair ?
\e,FG
\e(B ?
\e,Fg
\e(B tbl
)
440 (set-case-syntax-pair ?
\e,FH
\e(B ?
\e,Fh
\e(B tbl
)
441 (set-case-syntax-pair ?
\e,FI
\e(B ?
\e,Fi
\e(B tbl
)
442 (set-case-syntax-pair ?
\e,FJ
\e(B ?
\e,Fj
\e(B tbl
)
443 (set-case-syntax-pair ?
\e,FK
\e(B ?
\e,Fk
\e(B tbl
)
444 (set-case-syntax-pair ?
\e,FL
\e(B ?
\e,Fl
\e(B tbl
)
445 (set-case-syntax-pair ?
\e,FM
\e(B ?
\e,Fm
\e(B tbl
)
446 (set-case-syntax-pair ?
\e,FN
\e(B ?
\e,Fn
\e(B tbl
)
447 (set-case-syntax-pair ?
\e,FO
\e(B ?
\e,Fo
\e(B tbl
)
448 (set-case-syntax-pair ?
\e,FP
\e(B ?
\e,Fp
\e(B tbl
)
449 (set-case-syntax-pair ?
\e,FQ
\e(B ?
\e,Fq
\e(B tbl
)
450 (set-upcase-syntax ?
\e,FS
\e(B ?
\e,Fr
\e(B tbl
)
451 (set-case-syntax-pair ?
\e,FS
\e(B ?
\e,Fs
\e(B tbl
)
452 (set-case-syntax-pair ?
\e,FT
\e(B ?
\e,Ft
\e(B tbl
)
453 (set-case-syntax-pair ?
\e,FU
\e(B ?
\e,Fu
\e(B tbl
)
454 (set-case-syntax-pair ?
\e,FV
\e(B ?
\e,Fv
\e(B tbl
)
455 (set-case-syntax-pair ?
\e,FW
\e(B ?
\e,Fw
\e(B tbl
)
456 (set-case-syntax-pair ?
\e,FX
\e(B ?
\e,Fx
\e(B tbl
)
457 (set-case-syntax-pair ?
\e,FY
\e(B ?
\e,Fy
\e(B tbl
)
458 (set-case-syntax-pair ?
\e,FZ
\e(B ?
\e,Fz
\e(B tbl
)
459 (set-case-syntax-pair ?
\e,F
[\e(B ?
\e,F
{\e(B tbl
)
460 (set-case-syntax-pair ?
\e,F?
\e(B ?
\e,F~
\e(B tbl
)
461 (set-case-syntax-pair ?
\e,F
>\e(B ?
\e,F
}\e(B tbl
)
462 (set-case-syntax-pair ?
\e,F
<\e(B ?
\e,F|
\e(B tbl
)
463 (set-case-syntax-pair ?
\e,F6
\e(B ?
\e,F\
\e(B tbl
)
464 (set-case-syntax-pair ?
\e,F8
\e(B ?
\e,F
]\e(B tbl
)
465 (set-case-syntax-pair ?
\e,F9
\e(B ?
\e,F^
\e(B tbl
)
466 (set-case-syntax-pair ?
\e,F
:\e(B ?
\e,F_
\e(B tbl
)
467 ;; Unicode equivalents
468 (set-case-syntax-pair ?
\e$
,1&q
\e(B ?
\e$
,1'1\e(B tbl
)
469 (set-case-syntax-pair ?
\e$
,1&r
\e(B ?
\e$
,1'2\e(B tbl
)
470 (set-case-syntax-pair ?
\e$
,1&s
\e(B ?
\e$
,1'3\e(B tbl
)
471 (set-case-syntax-pair ?
\e$
,1&t
\e(B ?
\e$
,1'4\e(B tbl
)
472 (set-case-syntax-pair ?
\e$
,1&u
\e(B ?
\e$
,1'5\e(B tbl
)
473 (set-case-syntax-pair ?
\e$
,1&v
\e(B ?
\e$
,1'6\e(B tbl
)
474 (set-case-syntax-pair ?
\e$
,1&w
\e(B ?
\e$
,1'7\e(B tbl
)
475 (set-case-syntax-pair ?
\e$
,1&x
\e(B ?
\e$
,1'8\e(B tbl
)
476 (set-case-syntax-pair ?
\e$
,1&y
\e(B ?
\e$
,1'9\e(B tbl
)
477 (set-case-syntax-pair ?
\e$
,1&z
\e(B ?
\e$
,1':\e(B tbl
)
478 (set-case-syntax-pair ?
\e$
,1&{\e(B ?
\e$
,1';\e(B tbl)
479 (set-case-syntax-pair ?
\e$
,1&|
\e(B ?
\e$
,1'<\e(B tbl
)
480 (set-case-syntax-pair ?
\e$
,1&}\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&\7f\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'A
\e(B tbl
)
485 (set-upcase-syntax ?
\e$
,1'#\e(B ?
\e$
,1'B
\e(B tbl
)
486 (set-case-syntax-pair ?
\e$
,1'#\e(B ?
\e$
,1'C
\e(B tbl
)
487 (set-case-syntax-pair ?
\e$
,1'$
\e(B ?
\e$
,1'D
\e(B tbl
)
488 (set-case-syntax-pair ?
\e$
,1'%
\e(B ?
\e$
,1'E
\e(B tbl
)
489 (set-case-syntax-pair ?
\e$
,1'&\e(B ?
\e$
,1'F
\e(B tbl
)
490 (set-case-syntax-pair ?
\e$
,1''\e(B ?
\e$
,1'G
\e(B tbl
)
491 (set-case-syntax-pair ?
\e$
,1'(\e(B ?
\e$
,1'H
\e(B tbl
)
492 (set-case-syntax-pair ?
\e$
,1')\e(B ?
\e$
,1'I
\e(B tbl
)
493 (set-case-syntax-pair ?
\e$
,1'*\e(B ?
\e$
,1'J
\e(B tbl
)
494 (set-case-syntax-pair ?
\e$
,1'+\e(B ?
\e$
,1'K
\e(B tbl
)
495 (set-case-syntax-pair ?
\e$
,1&o
\e(B ?
\e$
,1'N
\e(B tbl
)
496 (set-case-syntax-pair ?
\e$
,1&n
\e(B ?
\e$
,1'M
\e(B tbl
)
497 (set-case-syntax-pair ?
\e$
,1&l
\e(B ?
\e$
,1'L
\e(B tbl
)
498 (set-case-syntax-pair ?
\e$
,1&f
\e(B ?
\e$
,1',\e(B tbl
)
499 (set-case-syntax-pair ?
\e$
,1&h
\e(B ?
\e$
,1'-
\e(B tbl
)
500 (set-case-syntax-pair ?
\e$
,1&i
\e(B ?
\e$
,1'.
\e(B tbl
)
501 (set-case-syntax-pair ?
\e$
,1&j
\e(B ?
\e$
,1'/\e(B tbl
))
503 ;; Hebrew character set (ISO-8859-8)
505 (modify-category-entry (make-char 'hebrew-iso8859-8
) ?w
)
508 (modify-category-entry (decode-char 'ucs c
) ?w
)
511 (modify-syntax-entry (make-char 'hebrew-iso8859-8
208) ".") ; PASEQ
512 (modify-syntax-entry (make-char 'hebrew-iso8859-8
211) ".") ; SOF PASUQ
513 (modify-syntax-entry (decode-char 'ucs
#x5be
) ".") ; MAQAF
514 (modify-syntax-entry (decode-char 'ucs
#x5c0
) ".") ; PASEQ
515 (modify-syntax-entry (decode-char 'ucs
#x5c3
) ".") ; SOF PASUQ
516 (modify-syntax-entry (decode-char 'ucs
#x5f3
) ".") ; GERESH
517 (modify-syntax-entry (decode-char 'ucs
#x5f4
) ".") ; GERSHAYIM
521 ;; (modify-syntax-entry (make-char 'hebrew-iso8859-8 c) "w")
523 ;; (modify-syntax-entry (make-char 'hebrew-iso8859-8 160) "w") ; NBSP
525 ;; Indian character set (IS 13194 and other Emacs original Indian charsets)
527 (modify-category-entry (make-char 'indian-is13194
) ?i
)
528 (modify-category-entry (make-char 'indian-2-column
) ?I
)
529 (modify-category-entry (make-char 'indian-glyph
) ?I
)
530 ;; Unicode Devanagari block
533 (modify-category-entry (decode-char 'ucs c
) ?i
)
536 (let ((l '(;; RANGE CATEGORY MEANINGS
537 (#x01
#x03 ?
7) ; vowel modifier
538 (#x05
#x14 ?
1) ; base vowel
539 (#x15
#x39 ?
0) ; consonants
540 (#x3e
#x4d ?
8) ; vowel modifier
541 (#x51
#x54 ?
4) ; stress/tone mark
542 (#x58
#x5f ?
0) ; consonants
543 (#x60
#x61 ?
1) ; base vowel
544 (#x62
#x63 ?
8) ; vowel modifier
545 (#x66
#x6f ?
6) ; digits
547 (dolist (elt1 '(#x900
#x980
#xa00
#xa80
#xb00
#xb80
#xc00
#xc80
#xd00
))
549 (let* ((from (car elt2
))
550 (counts (1+ (- (nth 1 elt2
) from
)))
551 (category (nth 2 elt2
)))
553 (modify-category-entry (decode-char 'ucs
(+ elt1 from i
))
556 ;; Japanese character set (JISX0201-kana, JISX0201-roman, JISX0208, JISX0212)
558 (modify-category-entry (make-char 'katakana-jisx0201
) ?k
)
559 (modify-category-entry (make-char 'katakana-jisx0201
) ?j
)
560 (modify-category-entry (make-char 'latin-jisx0201
) ?r
)
561 (modify-category-entry (make-char 'japanese-jisx0208
) ?j
)
562 (modify-category-entry (make-char 'japanese-jisx0212
) ?j
)
563 (modify-category-entry (make-char 'katakana-jisx0201
) ?\|
)
564 (modify-category-entry (make-char 'japanese-jisx0208
) ?\|
)
565 (modify-category-entry (make-char 'japanese-jisx0212
) ?\|
)
567 ;; Unicode equivalents of JISX0201-kana
570 (modify-category-entry (decode-char 'ucs c
) ?k
)
571 (modify-category-entry (decode-char 'ucs c
) ?j
)
572 (modify-category-entry (decode-char 'ucs c
) ?\|
)
578 ;; ?K is double width, ?k isn't specified
579 (modify-category-entry (decode-char 'ucs c
) ?k
)
580 (modify-category-entry (decode-char 'ucs c
) ?j
)
581 (modify-category-entry (decode-char 'ucs c
) ?\|
)
587 ;; ?H is actually defined to be double width
588 (modify-category-entry (decode-char 'ucs c
) ?H
)
589 ;;(modify-category-entry (decode-char 'ucs c) ?j)
590 (modify-category-entry (decode-char 'ucs c
) ?\|
)
594 ;; (modify-syntax-entry (make-char 'japanese-jisx0208) "w")
595 (modify-syntax-entry (make-char 'japanese-jisx0208
33) "_")
596 (modify-syntax-entry (make-char 'japanese-jisx0208
34) "_")
597 (modify-syntax-entry (make-char 'japanese-jisx0208
40) "_")
598 (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)))
600 (modify-syntax-entry (car chars
) "w")
601 (setq chars
(cdr chars
))))
602 (let ((parens "\e$B!J!K!L!M!N!O!P!Q!R!S!T!U!V!W!X!Y!Z![\e(B" )
604 (dotimes (i (/ (length parens
) 2))
605 (setq open
(aref parens
(* i
2))
606 close
(aref parens
(1+ (* i
2))))
607 (modify-syntax-entry open
(format "(%c" close
))
608 (modify-syntax-entry close
(format ")%c" open
))))
610 (modify-category-entry (make-char 'japanese-jisx0208
35) ?A
)
611 (modify-category-entry (make-char 'japanese-jisx0208
36) ?H
)
612 (modify-category-entry (make-char 'japanese-jisx0208
37) ?K
)
613 (modify-category-entry (make-char 'japanese-jisx0208
38) ?G
)
614 (modify-category-entry (make-char 'japanese-jisx0208
39) ?Y
)
617 (modify-category-entry (make-char 'japanese-jisx0208 row
) ?C
)
618 (setq row
(1+ row
))))
619 (modify-category-entry ?
\e$B
!<\e(B ?K
)
620 (let ((chars '(?
\e$B
!+\e(B ?
\e$B
!,\e(B)))
622 (modify-category-entry (car chars
) ?K
)
623 (modify-category-entry (car chars
) ?H
)
624 (setq chars
(cdr chars
))))
625 (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)))
627 (modify-category-entry (car chars
) ?C
)
628 (setq chars
(cdr chars
))))
631 ;; (modify-syntax-entry (make-char 'japanese-jisx0212) "w")
632 (modify-syntax-entry (make-char 'japanese-jisx0212
33) "_")
633 (modify-syntax-entry (make-char 'japanese-jisx0212
34) "_")
634 (modify-syntax-entry (make-char 'japanese-jisx0212
35) "_")
636 (modify-category-entry (make-char 'japanese-jisx0212
) ?C
)
639 ;; (modify-syntax-entry (make-char 'katakana-jisx0201) "w")
640 (let ((chars '(?
\e(I!\e(B ?
\e(I$
\e(B ?
\e(I%
\e(B
642 ?
\e$
,3sa
\e(B ?
\e$
,3sd
\e(B ?
\e$
,3se
\e(B)))
644 (modify-syntax-entry (car chars
) ".")
645 (setq chars
(cdr chars
))))
647 (modify-syntax-entry ?\
\e(I"\e(B "(\e(I#\e(B")
648 (modify-syntax-entry ?\\e(I#\e(B "(\e(I"\e(B")
650 ;; Korean character set (KSC5601)
652 ;; (modify-syntax-entry (make-char 'korean-ksc5601) "w")
653 (modify-syntax-entry (make-char 'korean-ksc5601
33) "_")
654 (modify-syntax-entry (make-char 'korean-ksc5601
34) "_")
655 (modify-syntax-entry (make-char 'korean-ksc5601
38) "_")
656 (modify-syntax-entry (make-char 'korean-ksc5601
39) "_")
657 (modify-syntax-entry (make-char 'korean-ksc5601
40) "_")
658 (modify-syntax-entry (make-char 'korean-ksc5601
41) "_")
660 (modify-category-entry (make-char 'korean-ksc5601
) ?h
)
661 (modify-category-entry (make-char 'korean-ksc5601
35) ?A
)
662 (modify-category-entry (make-char 'korean-ksc5601
37) ?G
)
663 (modify-category-entry (make-char 'korean-ksc5601
42) ?H
)
664 (modify-category-entry (make-char 'korean-ksc5601
43) ?K
)
665 (modify-category-entry (make-char 'korean-ksc5601
44) ?Y
)
667 (let ((parens "\e$(C!2!3!4!5!6!7!8!9!:!;!<!=#(#)#[#]#{#}\e(B" )
669 (dotimes (i (/ (length parens
) 2))
670 (setq open
(aref parens
(* i
2))
671 close
(aref parens
(1+ (* i
2))))
672 (modify-syntax-entry open
(format "(%c" close
))
673 (modify-syntax-entry close
(format ")%c" open
))))
675 ;; Latin character set (latin-1,2,3,4,5,8,9)
677 (modify-category-entry (make-char 'latin-iso8859-1
) ?l
)
678 (modify-category-entry (make-char 'latin-iso8859-2
) ?l
)
679 (modify-category-entry (make-char 'latin-iso8859-3
) ?l
)
680 (modify-category-entry (make-char 'latin-iso8859-4
) ?l
)
681 (modify-category-entry (make-char 'latin-iso8859-9
) ?l
)
682 (modify-category-entry (make-char 'latin-iso8859-14
) ?l
)
683 (modify-category-entry (make-char 'latin-iso8859-15
) ?l
)
685 (modify-category-entry (make-char 'latin-iso8859-1
160) ?\
)
686 (modify-category-entry (make-char 'latin-iso8859-2
160) ?\
)
687 (modify-category-entry (make-char 'latin-iso8859-3
160) ?\
)
688 (modify-category-entry (make-char 'latin-iso8859-4
160) ?\
)
689 (modify-category-entry (make-char 'latin-iso8859-9
160) ?\
)
690 (modify-category-entry (make-char 'latin-iso8859-14
160) ?\
)
691 (modify-category-entry (make-char 'latin-iso8859-15
160) ?\
)
695 (modify-category-entry (make-char 'lao
) ?o
)
696 (dotimes (i (1+ (- #xeff
#xe80
)))
697 (modify-category-entry (decode-char 'ucs
(+ i
#xe80
)) ?o
))
699 (let ((deflist '(;; chars syntax category
700 ("\e(1!\e(B-\e(1N\e(B" "w" ?
0) ; consonant
701 ("\e(1PRS]`\e(B-\e(1d\e(B" "w" ?
1) ; vowel base
702 ("\e(1QT\e(B-\e(1W[m\e(B" "w" ?
2) ; vowel upper
703 ("\e(1XY\e(B" "w" ?
3) ; vowel lower
704 ("\e(1h\e(B-\e(1l\e(B" "w" ?
4) ; tone mark
705 ("\e(1\\e(B" "w" ?
9) ; semivowel lower
706 ("\e(1p\e(B-\e(1y\e(B" "w" ?
6) ; digit
707 ("\e(1Of\e(B" "_" ?
5) ; symbol
708 ;; Unicode equivalents
709 ("\e$,1D!\e(B-\e$,1DN\e(B" "w" ?
0) ; consonant
710 ("\e$,1DPDRDSD]D`\e(B-\e$,1Dd\e(B" "w" ?
1) ; vowel base
711 ("\e$,1DQDT\e(B-\e$,1DWD[Dm\e(B" "w" ?
2) ; vowel upper
712 ("\e$,1DXDY\e(B" "w" ?
3) ; vowel lower
713 ("\e$,1Dh\e(B-\e$,1Dk\e(B" "w" ?
4) ; tone mark
714 ("\e$,1D\D]\e(B" "w" ?
9) ; semivowel lower
715 ("\e$,1Dp\e(B-\e$,1Dy\e(B" "w" ?
6) ; digit
716 ("\e$,1DODf\e(B" "_" ?
5) ; symbol
718 elm chars len syntax category to ch i
)
720 (setq elm
(car deflist
))
721 (setq chars
(car elm
)
727 (if (= (aref chars i
) ?-
)
730 (setq ch
(aref chars i
)
733 (unless (string-equal syntax
"w")
734 (modify-syntax-entry ch syntax
))
735 (modify-category-entry ch category
)
738 (setq deflist
(cdr deflist
))))
740 ;; Thai character set (TIS620)
742 (modify-category-entry (make-char 'thai-tis620
) ?t
)
743 (dotimes (i (1+ (- #xe7f
#xe00
)))
744 (modify-category-entry (decode-char 'ucs
(+ i
#xe00
)) ?t
))
746 (let ((deflist '(;; chars syntax category
747 ("\e,T!\e(B-\e,TCEG\e(B-\e,TN\e(B" "w" ?
0) ; consonant
748 ("\e,TDFPRS`\e(B-\e,Te\e(B" "w" ?
1) ; vowel base
749 ("\e,TQT\e(B-\e,TWgn\e(B" "w" ?
2) ; vowel upper
750 ("\e,TX\e(B-\e,TZ\e(B" "w" ?
3) ; vowel lower
751 ("\e,Th\e(B-\e,Tm\e(B" "w" ?
4) ; tone mark
752 ("\e,Tp\e(B-\e,Ty\e(B" "w" ?
6) ; digit
753 ("\e,TOf_oz{\e(B" "_" ?
5) ; symbol
754 ;; Unicode equivalents
755 ("\e$,1Ba\e(B-\e$,1C#C%C'\e(B-\e$,1C.\e(B" "w" ?
0) ; consonant
756 ("\e$,1C$C&C0C2C3C@\e(B-\e$,1CE\e(B" "w" ?
1) ; vowel base
757 ("\e$,1C1C4\e(B-\e$,1C7CGCN\e(B" "w" ?
2) ; vowel upper
758 ("\e$,1C8\e(B-\e$,1C:\e(B" "w" ?
3) ; vowel lower
759 ("\e$,1CH\e(B-\e$,1CM\e(B" "w" ?
4) ; tone mark
760 ("\e$,1CP\e(B-\e$,1CY\e(B" "w" ?
6) ; digit
761 ("\e$,1C/CFC?COCZC[\e(B" "_" ?
5) ; symbol
763 elm chars len syntax category to ch i
)
765 (setq elm
(car deflist
))
766 (setq chars
(car elm
)
772 (if (= (aref chars i
) ?-
)
775 (setq ch
(aref chars i
)
778 (unless (string-equal syntax
"w")
779 (modify-syntax-entry ch syntax
))
780 (modify-category-entry ch category
)
783 (setq deflist
(cdr deflist
))))
785 ;; Tibetan character set
787 (modify-category-entry (make-char 'tibetan
) ?q
)
788 (modify-category-entry (make-char 'tibetan-1-column
) ?q
)
789 (dotimes (i (1+ (- #xfff
#xf00
)))
790 (modify-category-entry (decode-char 'ucs
(+ i
#xf00
)) ?q
))
792 (let ((deflist '(;; chars syntax category
793 ("\e4\e$(7"!\e0"!\e1\e(B-\e4\e$(7"J
\e0"J\e1\e4"K
\e0"K\e1\e(B" "w" ?
0) ; consonant
794 ("\e$(7#!\e(B-\e$(7#J#K#L#M!"!#\e(B" "w
" ?0) ;
795 ("\e$
(7$
!\e(B-\e$
(7$e
\e(B" "w
" ?0) ;
796 ("\e$
(7%
!\e(B-\e$
(7%u
\e(B" "w
" ?0) ;
797 ("\e$
(7"S"["\"]"^
"a\e(B" "w" ?
2) ; upper vowel
798 ("\e$(7"_
"c"d
"g"h
"i"j
"k"l
\e(B" "w
" ?2) ; upper modifier
799 ("\e$
(7!I
"Q"R
"U"e
!e
!g
\e(B" "w
" ?3) ; lowel vowel/modifier
800 ("\e$
(7!P
\e(B-\e$
(7!Y
!Z
\e(B-\e$
(7!c
\e(B" "w
" ?6) ; digit
801 ("\e$
(7!;!=\e(B-\e$(7!B!D"`\e(B" "." ?|) ; line-break char
802 ("\e$(8!;!=!?!@!A!D"`\e(B" ".
" ?|) ;
803 ("\e$
(7!8!;!=\e(B-\e$(7!B!D"`!m!d\e(B" "." ?>) ; prohibition
804 ("\e$(8!;!=!?!@!A!D"`\e(B" ".
" ?>) ;
805 ("\e$
(7!0\e(B-\e$
(7!:!l
#R
#S
"f\e(B" "." ?
<) ; prohibition
806 ("\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
808 ;; Unicode version (not complete)
809 ("\e$,1F \e(B-\e$,1FIFJ\e(B" "w" ?
0) ; consonant
810 ("\e$,1Fp\e(B-\e$,1G9G:G;G<\e(B" "w" ?
0) ;
811 ("\e$,1FRFZF[F\F]F`\e(B" "w" ?
2) ; upper vowel
812 ("\e$,1F^FbFcFfFgFhFiFjFk\e(B" "w" ?
2) ; upper modifier
813 ("\e$,1EYFPFQFTFdEuEw\e(B" "w" ?
3) ; lowel vowel/modifier
814 ("\e$,1E`\e(B-\e$,1EiEj\e(B-\e$,1Es\e(B" "w" ?
6) ; digit
815 ("\e$,1EKEM\e(B-\e$,1ERETF_\e(B" "." ?|
) ; line-break char
816 ("\e$,1EHEKEM\e(B-\e$,1ERETF_E}Et\e(B" "." ?
>) ; prohibition
817 ("\e$,1E@\e(B-\e$,1EJE|GAGBFe\e(B" "." ?
<) ; prohibition
818 ("\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
820 elm chars len syntax category to ch i
)
822 (setq elm
(car deflist
))
823 (setq chars
(car elm
)
829 (if (= (aref chars i
) ?-
)
832 (setq ch
(aref chars i
)
835 (unless (string-equal syntax
"w")
836 (modify-syntax-entry ch syntax
))
837 (modify-category-entry ch category
)
840 (setq deflist
(cdr deflist
))))
842 ;; Vietnamese character set
844 (let ((lower (make-char 'vietnamese-viscii-lower
))
845 (upper (make-char 'vietnamese-viscii-upper
)))
846 ;; (modify-syntax-entry lower "w")
847 ;; (modify-syntax-entry upper "w")
848 (modify-category-entry lower ?v
)
849 (modify-category-entry upper ?v
)
850 (modify-category-entry lower ?l
) ; To make a word with
851 (modify-category-entry upper ?l
) ; latin characters.
854 (let ((tbl (standard-case-table))
857 (set-case-syntax-pair (make-char 'vietnamese-viscii-upper i
)
858 (make-char 'vietnamese-viscii-lower i
)
862 ;; Unicode (mule-unicode-0100-24ff)
864 (let ((tbl (standard-case-table)) c
)
866 ;; In some languages, U+0049 LATIN CAPITAL LETTER I and U+0131 LATIN
867 ;; SMALL LETTER DOTLESS I make a case pair, and so do U+0130 LATIN
868 ;; CAPITAL LETTER I WITH DOT ABOVE and U+0069 LATIN SMALL LETTER I.
869 ;; Thus we have to check language-environment to handle casing
870 ;; correctly. Currently only I<->i is available.
872 ;; Latin Extended-A, Latin Extended-B
875 (modify-category-entry (decode-char 'ucs c
) ?l
)
876 (and (or (<= c
#x012e
)
877 (and (>= c
#x014a
) (<= c
#x0177
)))
879 (set-case-syntax-pair
880 (decode-char 'ucs c
) (decode-char 'ucs
(1+ c
)) tbl
))
884 (set-case-syntax-pair
885 (decode-char 'ucs
(1- c
)) (decode-char 'ucs c
) tbl
))
887 ;;(set-downcase-syntax ?\e$,1 P\e(B ?i tbl)
888 ;;(set-upcase-syntax ?I ?\e$,1 Q\e(B tbl)
889 (set-case-syntax-pair ?
\e$
,1 R
\e(B ?
\e$
,1 S
\e(B tbl
)
890 (set-case-syntax-pair ?
\e$
,1 T
\e(B ?
\e$
,1 U
\e(B tbl
)
891 (set-case-syntax-pair ?
\e$
,1 V
\e(B ?
\e$
,1 W
\e(B tbl
)
892 (set-case-syntax-pair ?
\e$
,1!8\e(B ?
\e,A
\7f\e(B tbl
)
893 (set-case-syntax-pair ?
\e$
,1!9\e(B ?
\e$
,1!:\e(B tbl
)
894 (set-case-syntax-pair ?
\e$
,1!;\e(B ?\e$,1!<\e(B tbl)
895 (set-case-syntax-pair ?
\e$
,1!=\e(B ?
\e$
,1!>\e(B tbl
)
898 (set-case-syntax-pair ?
\e$
,1!A
\e(B ?
\e$
,1#S
\e(B tbl
)
899 (set-case-syntax-pair ?
\e$
,1!B
\e(B ?
\e$
,1!C
\e(B tbl
)
900 (set-case-syntax-pair ?
\e$
,1!D
\e(B ?
\e$
,1!E
\e(B tbl
)
901 (set-case-syntax-pair ?
\e$
,1!F
\e(B ?
\e$
,1#T
\e(B tbl
)
902 (set-case-syntax-pair ?
\e$
,1!G
\e(B ?
\e$
,1!H
\e(B tbl
)
903 (set-case-syntax-pair ?
\e$
,1!I
\e(B ?
\e$
,1#V
\e(B tbl
)
904 (set-case-syntax-pair ?
\e$
,1!J
\e(B ?
\e$
,1#W
\e(B tbl
)
905 (set-case-syntax-pair ?
\e$
,1!K
\e(B ?
\e$
,1!L
\e(B tbl
)
906 (set-case-syntax-pair ?
\e$
,1!N
\e(B ?
\e$
,1"=\e(B tbl)
907 (set-case-syntax-pair ?\e$,1!O\e(B ?\e$,1#Y\e(B tbl)
908 (set-case-syntax-pair ?\e$,1!P\e(B ?\e$,1#[\e(B tbl)
909 (set-case-syntax-pair ?\e$,1!Q\e(B ?\e$,1!R\e(B tbl)
910 (set-case-syntax-pair ?\e$,1!S\e(B ?\e$,1#`\e(B tbl)
911 (set-case-syntax-pair ?\e$,1!T\e(B ?\e$,1#c\e(B tbl)
912 (set-case-syntax-pair ?\e$,1!V\e(B ?\e$,1#i\e(B tbl)
913 (set-case-syntax-pair ?\e$,1!W\e(B ?\e$,1#h\e(B tbl)
914 (set-case-syntax-pair ?\e$,1!X\e(B ?\e$,1!Y\e(B tbl)
915 (set-case-syntax-pair ?\e$,1!\\e(B ?\e$,1#o\e(B tbl)
916 (set-case-syntax-pair ?\e$,1!]\e(B ?\e$,1#r\e(B tbl)
917 (set-case-syntax-pair ?\e$,1!_\e(B ?\e$,1#u\e(B tbl)
918 (set-case-syntax-pair ?\e$,1!`\e(B ?\e$,1!a\e(B tbl)
919 (set-case-syntax-pair ?\e$,1!b\e(B ?\e$,1!c\e(B tbl)
920 (set-case-syntax-pair ?\e$,1!d\e(B ?\e$,1!e\e(B tbl)
921 (set-case-syntax-pair ?\e$,1!f\e(B ?\e$,1$ \e(B tbl)
922 (set-case-syntax-pair ?\e$,1!g\e(B ?\e$,1!h\e(B tbl)
923 (set-case-syntax-pair ?\e$,1!i\e(B ?\e$,1$#\e(B tbl)
924 (set-case-syntax-pair ?\e$,1!l\e(B ?\e$,1!m\e(B tbl)
925 (set-case-syntax-pair ?\e$,1!n\e(B ?\e$,1$(\e(B tbl)
926 (set-case-syntax-pair ?\e$,1!o\e(B ?\e$,1!p\e(B tbl)
927 (set-case-syntax-pair ?\e$,1!q\e(B ?\e$,1$*\e(B tbl)
928 (set-case-syntax-pair ?\e$,1!r\e(B ?\e$,1$+\e(B tbl)
929 (set-case-syntax-pair ?\e$,1!s\e(B ?\e$,1!t\e(B tbl)
930 (set-case-syntax-pair ?\e$,1!u\e(B ?\e$,1!v\e(B tbl)
931 (set-case-syntax-pair ?\e$,1!w\e(B ?\e$,1$2\e(B tbl)
932 (set-case-syntax-pair ?\e$,1!x\e(B ?\e$,1!y\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")\e(B tbl)
937 (set-case-syntax-pair ?\e$,1"(\e(B ?
\e$
,1")\e(B tbl)
938 (set-case-syntax-pair ?\e$,1"*\e(B ?
\e$
,1",\e(B tbl)
939 (set-case-syntax-pair ?\e$,1"+\e(B ?
\e$
,1",\e(B tbl)
940 (set-case-syntax-pair ?\e$,1"-
\e(B ?
\e$
,1".\e(B tbl)
941 (set-case-syntax-pair ?\e$,1"/\e(B ?
\e$
,1"0\e(B tbl)
942 (set-case-syntax-pair ?\e$,1"1\e(B ?
\e$
,1"2\e(B tbl)
943 (set-case-syntax-pair ?\e$,1"3\e(B ?
\e$
,1"4\e(B tbl)
944 (set-case-syntax-pair ?\e$,1"5\e(B ?
\e$
,1"6\e(B tbl)
945 (set-case-syntax-pair ?\e$,1"7\e(B ?
\e$
,1"8\e(B tbl)
946 (set-case-syntax-pair ?\e$,1"9\e(B ?
\e$
,1":\e(B tbl)
947 (set-case-syntax-pair ?\e$,1";\e(B ?\e$,1"<\e(B tbl)
948 (set-case-syntax-pair ?
\e$
,1">\e(B ?\e$,1"?
\e(B tbl
)
949 (set-case-syntax-pair ?
\e$
,1"@\e(B ?\e$,1"A
\e(B tbl
)
950 (set-case-syntax-pair ?
\e$
,1"B\e(B ?\e$,1"C
\e(B tbl
)
951 (set-case-syntax-pair ?
\e$
,1"D\e(B ?\e$,1"E
\e(B tbl
)
952 (set-case-syntax-pair ?
\e$
,1"F\e(B ?\e$,1"G
\e(B tbl
)
953 (set-case-syntax-pair ?
\e$
,1"H\e(B ?\e$,1"I
\e(B tbl
)
954 (set-case-syntax-pair ?
\e$
,1"J\e(B ?\e$,1"K
\e(B tbl
)
955 (set-case-syntax-pair ?
\e$
,1"L\e(B ?\e$,1"M
\e(B tbl
)
956 (set-case-syntax-pair ?
\e$
,1"N\e(B ?\e$,1"O
\e(B tbl
)
957 ;; 01F0; F; 006A 030C; # LATIN SMALL LETTER J WITH CARON
958 (set-case-syntax-pair ?
\e$
,1"Q\e(B ?\e$,1"S
\e(B tbl
)
959 (set-case-syntax-pair ?
\e$
,1"R\e(B ?\e$,1"S
\e(B tbl
)
960 (set-case-syntax-pair ?
\e$
,1"T\e(B ?\e$,1"U
\e(B tbl
)
961 (set-case-syntax-pair ?
\e$
,1"V\e(B ?\e$,1!U\e(B tbl)
962 (set-case-syntax-pair ?\e$,1"W
\e(B ?
\e$
,1!\7f\e(B tbl
)
963 (set-case-syntax-pair ?
\e$
,1"X\e(B ?\e$,1"Y
\e(B tbl
)
964 (set-case-syntax-pair ?
\e$
,1"Z\e(B ?\e$,1"[\e(B tbl
)
965 (set-case-syntax-pair ?
\e$
,1"\\e(B ?\e$,1"]\e(B tbl
)
966 (set-case-syntax-pair ?
\e$
,1"^\e(B ?\e$,1"_
\e(B tbl
)
967 (set-case-syntax-pair ?
\e$
,1"`\e(B ?\e$,1"a
\e(B tbl
)
968 (set-case-syntax-pair ?
\e$
,1"b\e(B ?\e$,1"c
\e(B tbl
)
969 (set-case-syntax-pair ?
\e$
,1"d\e(B ?\e$,1"e
\e(B tbl
)
970 (set-case-syntax-pair ?
\e$
,1"f\e(B ?\e$,1"g
\e(B tbl
)
971 (set-case-syntax-pair ?
\e$
,1"h\e(B ?\e$,1"i
\e(B tbl
)
972 (set-case-syntax-pair ?
\e$
,1"j\e(B ?\e$,1"k
\e(B tbl
)
973 (set-case-syntax-pair ?
\e$
,1"l\e(B ?\e$,1"m
\e(B tbl
)
974 (set-case-syntax-pair ?
\e$
,1"n\e(B ?\e$,1"o
\e(B tbl
)
975 (set-case-syntax-pair ?
\e$
,1"p\e(B ?\e$,1"q
\e(B tbl
)
976 (set-case-syntax-pair ?
\e$
,1"r\e(B ?\e$,1"s
\e(B tbl
)
977 (set-case-syntax-pair ?
\e$
,1"t\e(B ?\e$,1"u
\e(B tbl
)
978 (set-case-syntax-pair ?
\e$
,1"v\e(B ?\e$,1"w
\e(B tbl
)
979 (set-case-syntax-pair ?
\e$
,1"x\e(B ?\e$,1"y
\e(B tbl
)
980 (set-case-syntax-pair ?
\e$
,1"z\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"\7f\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#&\e(B ?\e$,1#'\e(B tbl)
986 (set-case-syntax-pair ?\e$,1#(\e(B ?\e$,1#)\e(B tbl)
987 (set-case-syntax-pair ?\e$,1#*\e(B ?\e$,1#+\e(B tbl)
988 (set-case-syntax-pair ?\e$,1#,\e(B ?\e$,1#-\e(B tbl)
989 (set-case-syntax-pair ?\e$,1#.\e(B ?\e$,1#/\e(B tbl)
990 (set-case-syntax-pair ?\e$,1#0\e(B ?\e$,1#1\e(B tbl)
991 (set-case-syntax-pair ?\e$,1#2\e(B ?\e$,1#3\e(B tbl)
993 ;; Latin Extended Additional
996 (modify-category-entry (decode-char 'ucs c) ?l)
998 (or (<= c #x1e94) (>= c #x1ea0))
999 (set-case-syntax-pair
1000 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl))
1005 (while (<= c #x03ff)
1006 (modify-category-entry (decode-char 'ucs c) ?g)
1007 (if (or (and (>= c #x0391) (<= c #x03a1))
1008 (and (>= c #x03a3) (<= c #x03ab)))
1009 (set-case-syntax-pair
1010 (decode-char 'ucs c) (decode-char 'ucs (+ c 32)) tbl))
1014 (set-case-syntax-pair
1015 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl))
1017 (set-case-syntax-pair ?\e$,1&f\e(B ?\e$,1',\e(B tbl)
1018 (set-case-syntax-pair ?\e$,1&h\e(B ?\e$,1'-\e(B tbl)
1019 (set-case-syntax-pair ?\e$,1&i\e(B ?\e$,1'.\e(B tbl)
1020 (set-case-syntax-pair ?\e$,1&j\e(B ?\e$,1'/\e(B tbl)
1021 (set-case-syntax-pair ?\e$,1&l\e(B ?\e$,1'L\e(B tbl)
1022 (set-case-syntax-pair ?\e$,1&n\e(B ?\e$,1'M\e(B tbl)
1023 (set-case-syntax-pair ?\e$,1&o\e(B ?\e$,1'N\e(B tbl)
1028 (set-case-syntax-pair (decode-char 'ucs c)
1029 (decode-char 'ucs (+ c #x30)) tbl)
1034 (while (<= c #x1fff)
1035 (modify-category-entry (decode-char 'ucs c) ?g)
1036 (and (<= (logand c #x000f) 7)
1038 (not (memq c '(#x1f50 #x1f52 #x1f54 #x1f56)))
1039 (/= (logand c #x00f0) 7)
1040 (set-case-syntax-pair
1041 (decode-char 'ucs (+ c 8)) (decode-char 'ucs c) tbl))
1043 (set-case-syntax-pair ?\e$,1qx\e(B ?\e$,1qp\e(B tbl)
1044 (set-case-syntax-pair ?\e$,1qy\e(B ?\e$,1qq\e(B tbl)
1045 (set-case-syntax-pair ?\e$,1qz\e(B ?\e$,1q0\e(B tbl)
1046 (set-case-syntax-pair ?\e$,1q{\e(B ?\e$,1q1\e(B tbl)
1047 (set-case-syntax-pair ?\e$,1q|\e(B ?\e$,1qs\e(B tbl)
1048 (set-case-syntax-pair ?\e$,1r(\e(B ?\e$,1q2\e(B tbl)
1049 (set-case-syntax-pair ?\e$,1r)\e(B ?\e$,1q3\e(B tbl)
1050 (set-case-syntax-pair ?\e$,1r*\e(B ?\e$,1q4\e(B tbl)
1051 (set-case-syntax-pair ?\e$,1r+\e(B ?\e$,1q5\e(B tbl)
1052 (set-case-syntax-pair ?\e$,1r,\e(B ?\e$,1r#\e(B tbl)
1053 (set-case-syntax-pair ?\e$,1r8\e(B ?\e$,1r0\e(B tbl)
1054 (set-case-syntax-pair ?\e$,1r9\e(B ?\e$,1r1\e(B tbl)
1055 (set-case-syntax-pair ?\e$,1r:\e(B ?\e$,1q6\e(B tbl)
1056 (set-case-syntax-pair ?\e$,1r;\e(B ?\e$,1q7\e(B tbl)
1057 (set-case-syntax-pair ?\e$,1rH\e(B ?\e$,1r@\e(B tbl)
1058 (set-case-syntax-pair ?\e$,1rI\e(B ?\e$,1rA\e(B tbl)
1059 (set-case-syntax-pair ?\e$,1rJ\e(B ?\e$,1q:\e(B tbl)
1060 (set-case-syntax-pair ?\e$,1rK\e(B ?\e$,1q;\e(B tbl)
1061 (set-case-syntax-pair ?\e$,1rL\e(B ?\e$,1rE\e(B tbl)
1062 (set-case-syntax-pair ?\e$,1rX\e(B ?\e$,1q8\e(B tbl)
1063 (set-case-syntax-pair ?\e$,1rY\e(B ?\e$,1q9\e(B tbl)
1064 (set-case-syntax-pair ?\e$,1rZ\e(B ?\e$,1q<\e(B tbl)
1065 (set-case-syntax-pair ?\e$,1r[\e(B ?\e$,1q=\e(B tbl)
1066 (set-case-syntax-pair ?\e$,1r\\e(B ?\e$,1rS\e(B tbl)
1070 (while (<= c #x04ff)
1071 (modify-category-entry (decode-char 'ucs c) ?y)
1074 (set-case-syntax-pair
1075 (decode-char 'ucs c) (decode-char 'ucs (+ c 80)) tbl))
1078 (set-case-syntax-pair
1079 (decode-char 'ucs c) (decode-char 'ucs (+ c 32)) tbl))
1080 (and (zerop (% c 2))
1081 (or (and (>= c #x0460) (<= c #x0480))
1082 (and (>= c #x048c) (<= c #x04be))
1083 (and (>= c #x04d0) (<= c #x04f4)))
1084 (set-case-syntax-pair
1085 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl))
1087 (set-case-syntax-pair ?\e$,1*!\e(B ?\e$,1*"\e(B tbl
)
1088 (set-case-syntax-pair ?
\e$
,1*#\e(B ?
\e$
,1*$
\e(B tbl
)
1089 (set-case-syntax-pair ?
\e$
,1*'\e(B ?
\e$
,1*(\e(B tbl
)
1090 (set-case-syntax-pair ?
\e$
,1*+\e(B ?
\e$
,1*,\e(B tbl
)
1091 (set-case-syntax-pair ?
\e$
,1*X
\e(B ?
\e$
,1*Y
\e(B tbl
)
1093 ;; general punctuation
1095 (while (<= c
#x200b
)
1096 (set-case-syntax (decode-char 'ucs c
) " " tbl
)
1099 (while (<= c
#x2016
)
1100 (set-case-syntax (decode-char 'ucs c
) "_" tbl
)
1102 ;; Punctuation syntax for quotation marks (like `)
1103 (while (<= c
#x201f
)
1104 (set-case-syntax (decode-char 'ucs c
) "." tbl
)
1106 (while (<= c
#x2027
)
1107 (set-case-syntax (decode-char 'ucs c
) "_" tbl
)
1112 (while (<= c
#x216f
)
1113 (set-case-syntax-pair (decode-char 'ucs c
)
1114 (decode-char 'ucs
(+ c
#x10
)) tbl
)
1119 (while (<= c
#x24cf
)
1120 (set-case-syntax-pair (decode-char 'ucs c
)
1121 (decode-char 'ucs
(+ c
26)) tbl
)
1122 (modify-category-entry (decode-char 'ucs c
) ?l
)
1123 (modify-category-entry (decode-char 'ucs
(+ c
26)) ?l
)
1128 (while (<= c
#xff3a
)
1129 (set-case-syntax-pair (decode-char 'ucs c
)
1130 (decode-char 'ucs
(+ c
#x20
)) tbl
)
1131 (modify-category-entry (decode-char 'ucs c
) ?l
)
1132 (modify-category-entry (decode-char 'ucs
(+ c
#x20
)) ?l
)
1135 ;; Combining diacritics
1138 (modify-category-entry (decode-char 'ucs c
) ?^
)
1143 (while (<= c
#x20e3
)
1144 (modify-category-entry (decode-char 'ucs c
) ?^
)
1147 ;; Fixme: syntax for symbols &c
1151 '("\e$,1sEsF\e(B" ; U+2045 U+2046
1152 "\e$,1s}s~\e(B" ; U+207D U+207E
1153 "\e$,1t-t.\e(B" ; U+208D U+208E
1154 "\e$,1{){*\e(B" ; U+2329 U+232A
1155 "\e$,1|T|U\e(B" ; U+23B4 U+23B5
1156 "\e$,2&H&I\e(B" ; U+2768 U+2769
1157 "\e$,2&J&K\e(B" ; U+276A U+276B
1158 "\e$,2&L&M\e(B" ; U+276C U+276D
1159 "\e$,2&P&Q\e(B" ; U+2770 U+2771
1160 "\e$,2&R&S\e(B" ; U+2772 U+2773
1161 "\e$,2&T&U\e(B" ; U+2774 U+2775
1162 "\e$,2'f'g\e(B" ; U+27E6 U+27E7
1163 "\e$,2'h'i\e(B" ; U+27E8 U+27E9
1164 "\e$,2'j'k\e(B" ; U+27EA U+27EB
1165 "\e$,2,#,$\e(B" ; U+2983 U+2984
1166 "\e$,2,%,&\e(B" ; U+2985 U+2986
1167 "\e$,2,',(\e(B" ; U+2987 U+2988
1168 "\e$,2,),*\e(B" ; U+2989 U+298A
1169 "\e$,2,+,,\e(B" ; U+298B U+298C
1170 "\e$,2,-,.\e(B" ; U+298D U+298E
1171 "\e$,2,/,0\e(B" ; U+298F U+2990
1172 "\e$,2,1,2\e(B" ; U+2991 U+2992
1173 "\e$,2,3,4\e(B" ; U+2993 U+2994
1174 "\e$,2,5,6\e(B" ; U+2995 U+2996
1175 "\e$,2,7,8\e(B" ; U+2997 U+2998
1176 "\e$,2-<-=\e(B" ; U+29FC U+29FD
1177 "\e$,2=H=I\e(B" ; U+3008 U+3009
1178 "\e$,2=J=K\e(B" ; U+300A U+300B
1179 "\e$,2=L=M\e(B" ; U+300C U+300D
1180 "\e$,2=N=O\e(B" ; U+300E U+300F
1181 "\e$,2=P=Q\e(B" ; U+3010 U+3011
1182 "\e$,2=T=U\e(B" ; U+3014 U+3015
1183 "\e$,2=V=W\e(B" ; U+3016 U+3017
1184 "\e$,2=X=Y\e(B" ; U+3018 U+3019
1185 "\e$,2=Z=[\e(B" ; U+301A U+301B
1186 "\e$,3m~m\7f\e(B" ; U+FD3E U+FD3F
1187 "\e$,3pUpV\e(B" ; U+FE35 U+FE36
1188 "\e$,3pWpX\e(B" ; U+FE37 U+FE38
1189 "\e$,3pYpZ\e(B" ; U+FE39 U+FE3A
1190 "\e$,3p[p\\e(B" ; U+FE3B U+FE3C
1191 "\e$,3p]p^\e(B" ; U+FE3D U+FE3E
1192 "\e$,3p_p`\e(B" ; U+FE3F U+FE40
1193 "\e$,3papb\e(B" ; U+FE41 U+FE42
1194 "\e$,3pcpd\e(B" ; U+FE43 U+FE44
1195 "\e$,3pypz\e(B" ; U+FE59 U+FE5A
1196 "\e$,3p{p|\e(B" ; U+FE5B U+FE5C
1197 "\e$,3p}p~\e(B" ; U+FE5D U+FE5E
1198 "\e$,3rhri\e(B" ; U+FF08 U+FF09
1199 "\e$,3s;s=\e(B" ; U+FF3B U+FF3D
1200 "\e$,3s[s]\e(B" ; U+FF5B U+FF5D
1201 "\e$,3s_s`\e(B" ; U+FF5F U+FF60
1202 "\e$,3sbsc\e(B" ; U+FF62 U+FF63
1205 (modify-syntax-entry (aref elt
0) (string ?\
( (aref elt
1)))
1206 (modify-syntax-entry (aref elt
1) (string ?\
) (aref elt
0)))))
1209 ;;; Setting word boundary.
1211 (setq word-combining-categories
1214 (setq word-separating-categories
; (2-byte character sets)
1215 '((?A . ?K
) ; Alpha numeric - Katakana
1216 (?A . ?C
) ; Alpha numeric - Chinese
1217 (?H . ?A
) ; Hiragana - Alpha numeric
1218 (?H . ?K
) ; Hiragana - Katakana
1219 (?H . ?C
) ; Hiragana - Chinese
1220 (?K . ?A
) ; Katakana - Alpha numeric
1221 (?K . ?C
) ; Katakana - Chinese
1222 (?C . ?A
) ; Chinese - Alpha numeric
1223 (?C . ?K
) ; Chinese - Katakana
1227 ;; For each character set, put the information of the most proper
1228 ;; coding system to encode it by `preferred-coding-system' property.
1230 (let ((l '((latin-iso8859-1 . iso-latin-1
)
1231 (latin-iso8859-2 . iso-latin-2
)
1232 (latin-iso8859-3 . iso-latin-3
)
1233 (latin-iso8859-4 . iso-latin-4
)
1234 (thai-tis620 . thai-tis620
)
1235 (greek-iso8859-7 . greek-iso-8bit
)
1236 (arabic-iso8859-6 . iso-2022-7bit
)
1237 (hebrew-iso8859-8 . hebrew-iso-8bit
)
1238 (katakana-jisx0201 . japanese-shift-jis
)
1239 (latin-jisx0201 . japanese-shift-jis
)
1240 (cyrillic-iso8859-5 . cyrillic-iso-8bit
)
1241 (latin-iso8859-9 . iso-latin-5
)
1242 (japanese-jisx0208-1978 . iso-2022-jp
)
1243 (chinese-gb2312 . cn-gb-2312
)
1244 (japanese-jisx0208 . iso-2022-jp
)
1245 (korean-ksc5601 . iso-2022-kr
)
1246 (japanese-jisx0212 . iso-2022-jp
)
1247 (chinese-cns11643-1 . iso-2022-cn
)
1248 (chinese-cns11643-2 . iso-2022-cn
)
1249 (chinese-big5-1 . chinese-big5
)
1250 (chinese-big5-2 . chinese-big5
)
1251 (chinese-sisheng . iso-2022-7bit
)
1252 (ipa . iso-2022-7bit
)
1253 (vietnamese-viscii-lower . vietnamese-viscii
)
1254 (vietnamese-viscii-upper . vietnamese-viscii
)
1255 (arabic-digit . iso-2022-7bit
)
1256 (arabic-1-column . iso-2022-7bit
)
1257 (ascii-right-to-left . iso-2022-7bit
)
1259 (arabic-2-column . iso-2022-7bit
)
1260 (indian-is13194 . devanagari
)
1261 (indian-glyph . devanagari
)
1262 (tibetan-1-column . tibetan
)
1263 (ethiopic . iso-2022-7bit
)
1264 (chinese-cns11643-3 . iso-2022-cn
)
1265 (chinese-cns11643-4 . iso-2022-cn
)
1266 (chinese-cns11643-5 . iso-2022-cn
)
1267 (chinese-cns11643-6 . iso-2022-cn
)
1268 (chinese-cns11643-7 . iso-2022-cn
)
1269 (indian-2-column . devanagari
)
1271 (latin-iso8859-14 . iso-latin-8
)
1272 (latin-iso8859-15 . iso-latin-9
))))
1274 (put-charset-property (car (car l
)) 'preferred-coding-system
(cdr (car l
)))
1278 ;; Setup auto-fill-chars for charsets that should invoke auto-filling.
1279 ;; SPACE and NEWLINE are already set. Also put `nospace-between-words'
1280 ;; property on the charsets.
1281 (let ((l '(katakana-jisx0201
1282 japanese-jisx0208 japanese-jisx0212
1283 chinese-gb2312 chinese-big5-1 chinese-big5-2
)))
1285 (aset auto-fill-chars
(make-char (car l
)) t
)
1286 (put-charset-property (car l
) 'nospace-between-words t
)
1290 (setq utf-translate-cjk-mode saved-utf-translate-cjk-mode
)
1291 (makunbound 'saved-utf-translate-cjk-mode
)
1293 ;;; Local Variables:
1294 ;;; coding: iso-2022-7bit
1297 ;;; arch-tag: 85889c35-9f4d-4912-9bf5-82de31b0d42d
1298 ;;; characters.el ends here