aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa2002-05-09 06:44:06 +0000
committerKenichi Handa2002-05-09 06:44:06 +0000
commite6d10035e7ace33330d71999f945cf46cde9afd0 (patch)
treea533c1c31d61e0fdaa95c6330c81f55076b0c710
parent26dbea99437cfcdbe28542b531889c8e256d1167 (diff)
downloademacs-e6d10035e7ace33330d71999f945cf46cde9afd0.tar.gz
emacs-e6d10035e7ace33330d71999f945cf46cde9afd0.zip
Change encoding to utf-8-emacs. Remove apparent duplicate codes.
Diffstat
-rw-r--r--lisp/international/characters.el775
1 files changed, 336 insertions, 439 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 8e4559c728f..79aa4e00295 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -127,35 +127,20 @@
127;; (modify-syntax-entry (make-char 'chinese-gb2312 33) "_") 127;; (modify-syntax-entry (make-char 'chinese-gb2312 33) "_")
128;; (modify-syntax-entry (make-char 'chinese-gb2312 34) "_") 128;; (modify-syntax-entry (make-char 'chinese-gb2312 34) "_")
129;; (modify-syntax-entry (make-char 'chinese-gb2312 41) "_") 129;; (modify-syntax-entry (make-char 'chinese-gb2312 41) "_")
130(modify-syntax-entry ?\$A!2(B "($A!3(B") 130(modify-syntax-entry ?\〔 "(〕")
131(modify-syntax-entry ?\$A!4(B "($A!5(B") 131(modify-syntax-entry ?\〈 "(〉")
132(modify-syntax-entry ?\$A!6(B "($A!7(B") 132(modify-syntax-entry ?\《 "(》")
133(modify-syntax-entry ?\$A!8(B "($A!9(B") 133(modify-syntax-entry ?\「 "(」")
134(modify-syntax-entry ?\$A!:(B "($A!;(B") 134(modify-syntax-entry ?\『 "(』")
135(modify-syntax-entry ?\$A!<(B "($A!=(B") 135(modify-syntax-entry ?\〖 "(〗")
136(modify-syntax-entry ?\$A!>(B "($A!?(B") 136(modify-syntax-entry ?\【 "(】")
137(modify-syntax-entry ?\$A!3(B ")$A!2(B") 137(modify-syntax-entry ?\〕 ")〔")
138(modify-syntax-entry ?\$A!5(B ")$A!4(B") 138(modify-syntax-entry ?\〉 ")〈")
139(modify-syntax-entry ?\$A!7(B ")$A!6(B") 139(modify-syntax-entry ?\》 ")《")
140(modify-syntax-entry ?\$A!9(B ")$A!8(B") 140(modify-syntax-entry ?\」 ")「")
141(modify-syntax-entry ?\$A!;(B ")$A!:(B") 141(modify-syntax-entry ?\』 ")『")
142(modify-syntax-entry ?\$A!=(B ")$A!<(B") 142(modify-syntax-entry ?\〗 ")〖")
143(modify-syntax-entry ?\$A!?(B ")$A!>(B") 143(modify-syntax-entry ?\】 ")【")
144;; Unicode equivalents of above
145(modify-syntax-entry ?\$,2=T(B "($,2=U(B")
146(modify-syntax-entry ?\$,2=H(B "($,2=I(B")
147(modify-syntax-entry ?\$,2=J(B "($,2=K(B")
148(modify-syntax-entry ?\$,2=L(B "($,2=M(B")
149(modify-syntax-entry ?\$,2=N(B "($,2=O(B")
150(modify-syntax-entry ?\$,2=V(B "($,2=W(B")
151(modify-syntax-entry ?\$,2=P(B "($,2=Q(B")
152(modify-syntax-entry ?\$,2=U(B ")$,2=T(B")
153(modify-syntax-entry ?\$,2=I(B ")$,2=H(B")
154(modify-syntax-entry ?\$,2=K(B ")$,2=J(B")
155(modify-syntax-entry ?\$,2=M(B ")$,2=L(B")
156(modify-syntax-entry ?\$,2=O(B ")$,2=N(B")
157(modify-syntax-entry ?\$,2=W(B ")$,2=V(B")
158(modify-syntax-entry ?\$,2=Q(B ")$,2=P(B")
159 144
160;; (modify-category-entry (make-char 'chinese-gb2312) ?c) 145;; (modify-category-entry (make-char 'chinese-gb2312) ?c)
161;; (modify-category-entry (make-char 'chinese-gb2312) ?\|) 146;; (modify-category-entry (make-char 'chinese-gb2312) ?\|)
@@ -207,121 +192,75 @@
207;; Cyrillic character set (ISO-8859-5) 192;; Cyrillic character set (ISO-8859-5)
208 193
209(modify-syntax-entry (decode-char 'iso-8859-5 160) " ") 194(modify-syntax-entry (decode-char 'iso-8859-5 160) " ")
210(modify-syntax-entry ?,L-(B ".") 195(modify-syntax-entry ?­ ".")
211(modify-syntax-entry ?,Lp(B ".") 196(modify-syntax-entry ?№ ".")
212(modify-syntax-entry ?,L}(B ".") 197(modify-syntax-entry ?§ ".")
213(let ((tbl (standard-case-table))) 198(let ((tbl (standard-case-table)))
214 (set-case-syntax-pair ?,L!(B ?,Lq(B tbl) 199 (set-case-syntax-pair ?Ё ?ё tbl)
215 (set-case-syntax-pair ?,L"(B ?,Lr(B tbl) 200 (set-case-syntax-pair ?Ђ ?ђ tbl)
216 (set-case-syntax-pair ?,L#(B ?,Ls(B tbl) 201 (set-case-syntax-pair ?Ѓ ?ѓ tbl)
217 (set-case-syntax-pair ?,L$(B ?,Lt(B tbl) 202 (set-case-syntax-pair ?Є ?є tbl)
218 (set-case-syntax-pair ?,L%(B ?,Lu(B tbl) 203 (set-case-syntax-pair ?Ѕ ?ѕ tbl)
219 (set-case-syntax-pair ?,L&(B ?,Lv(B tbl) 204 (set-case-syntax-pair ?І ?і tbl)
220 (set-case-syntax-pair ?,L'(B ?,Lw(B tbl) 205 (set-case-syntax-pair ?Ї ?ї tbl)
221 (set-case-syntax-pair ?,L((B ?,Lx(B tbl) 206 (set-case-syntax-pair ?Ј ?ј tbl)
222 (set-case-syntax-pair ?,L)(B ?,Ly(B tbl) 207 (set-case-syntax-pair ?Љ ?љ tbl)
223 (set-case-syntax-pair ?,L*(B ?,Lz(B tbl) 208 (set-case-syntax-pair ?Њ ?њ tbl)
224 (set-case-syntax-pair ?,L+(B ?,L{(B tbl) 209 (set-case-syntax-pair ?Ћ ?ћ tbl)
225 (set-case-syntax-pair ?,L,(B ?,L|(B tbl) 210 (set-case-syntax-pair ?Ќ ?ќ tbl)
226 (set-case-syntax-pair ?,L.(B ?,L~(B tbl) 211 (set-case-syntax-pair ?Ў ?ў tbl)
227 (set-case-syntax-pair ?,L/(B ?,L(B tbl) 212 (set-case-syntax-pair ?Џ ?џ tbl)
228 (set-case-syntax-pair ?,L0(B ?,LP(B tbl) 213 (set-case-syntax-pair ?А ?а tbl)
229 (set-case-syntax-pair ?,L1(B ?,LQ(B tbl) 214 (set-case-syntax-pair ?Б ?б tbl)
230 (set-case-syntax-pair ?,L2(B ?,LR(B tbl) 215 (set-case-syntax-pair ?В ?в tbl)
231 (set-case-syntax-pair ?,L3(B ?,LS(B tbl) 216 (set-case-syntax-pair ?Г ?г tbl)
232 (set-case-syntax-pair ?,L4(B ?,LT(B tbl) 217 (set-case-syntax-pair ?Д ?д tbl)
233 (set-case-syntax-pair ?,L5(B ?,LU(B tbl) 218 (set-case-syntax-pair ?Е ?е tbl)
234 (set-case-syntax-pair ?,L6(B ?,LV(B tbl) 219 (set-case-syntax-pair ?Ж ?ж tbl)
235 (set-case-syntax-pair ?,L7(B ?,LW(B tbl) 220 (set-case-syntax-pair ?З ?з tbl)
236 (set-case-syntax-pair ?,L8(B ?,LX(B tbl) 221 (set-case-syntax-pair ?И ?и tbl)
237 (set-case-syntax-pair ?,L9(B ?,LY(B tbl) 222 (set-case-syntax-pair ?Й ?й tbl)
238 (set-case-syntax-pair ?,L:(B ?,LZ(B tbl) 223 (set-case-syntax-pair ?К ?к tbl)
239 (set-case-syntax-pair ?,L;(B ?,L[(B tbl) 224 (set-case-syntax-pair ?Л ?л tbl)
240 (set-case-syntax-pair ?,L<(B ?,L\(B tbl) 225 (set-case-syntax-pair ?М ?м tbl)
241 (set-case-syntax-pair ?,L=(B ?,L](B tbl) 226 (set-case-syntax-pair ?Н ?н tbl)
242 (set-case-syntax-pair ?,L>(B ?,L^(B tbl) 227 (set-case-syntax-pair ?О ?о tbl)
243 (set-case-syntax-pair ?,L?(B ?,L_(B tbl) 228 (set-case-syntax-pair ?П ?п tbl)
244 (set-case-syntax-pair ?,L@(B ?,L`(B tbl) 229 (set-case-syntax-pair ?Р ?р tbl)
245 (set-case-syntax-pair ?,LA(B ?,La(B tbl) 230 (set-case-syntax-pair ?С ?с tbl)
246 (set-case-syntax-pair ?,LB(B ?,Lb(B tbl) 231 (set-case-syntax-pair ?Т ?т tbl)
247 (set-case-syntax-pair ?,LC(B ?,Lc(B tbl) 232 (set-case-syntax-pair ?У ?у tbl)
248 (set-case-syntax-pair ?,LD(B ?,Ld(B tbl) 233 (set-case-syntax-pair ?Ф ?ф tbl)
249 (set-case-syntax-pair ?,LE(B ?,Le(B tbl) 234 (set-case-syntax-pair ?Х ?х tbl)
250 (set-case-syntax-pair ?,LF(B ?,Lf(B tbl) 235 (set-case-syntax-pair ?Ц ?ц tbl)
251 (set-case-syntax-pair ?,LG(B ?,Lg(B tbl) 236 (set-case-syntax-pair ?Ч ?ч tbl)
252 (set-case-syntax-pair ?,LH(B ?,Lh(B tbl) 237 (set-case-syntax-pair ?Ш ?ш tbl)
253 (set-case-syntax-pair ?,LI(B ?,Li(B tbl) 238 (set-case-syntax-pair ?Щ ?щ tbl)
254 (set-case-syntax-pair ?,LJ(B ?,Lj(B tbl) 239 (set-case-syntax-pair ?Ъ ?ъ tbl)
255 (set-case-syntax-pair ?,LK(B ?,Lk(B tbl) 240 (set-case-syntax-pair ?Ы ?ы tbl)
256 (set-case-syntax-pair ?,LL(B ?,Ll(B tbl) 241 (set-case-syntax-pair ?Ь ?ь tbl)
257 (set-case-syntax-pair ?,LM(B ?,Lm(B tbl) 242 (set-case-syntax-pair ?Э ?э tbl)
258 (set-case-syntax-pair ?,LN(B ?,Ln(B tbl) 243 (set-case-syntax-pair ?Ю ?ю tbl)
259 (set-case-syntax-pair ?,LO(B ?,Lo(B tbl) 244 (set-case-syntax-pair ?Я ?я tbl))
260 (set-case-syntax-pair ?$,1(!(B ?$,1(q(B tbl)
261 (set-case-syntax-pair ?$,1("(B ?$,1(r(B tbl)
262 (set-case-syntax-pair ?$,1(#(B ?$,1(s(B tbl)
263 (set-case-syntax-pair ?$,1($(B ?$,1(t(B tbl)
264 (set-case-syntax-pair ?$,1(%(B ?$,1(u(B tbl)
265 (set-case-syntax-pair ?$,1(&(B ?$,1(v(B tbl)
266 (set-case-syntax-pair ?$,1('(B ?$,1(w(B tbl)
267 (set-case-syntax-pair ?$,1(((B ?$,1(x(B tbl)
268 (set-case-syntax-pair ?$,1()(B ?$,1(y(B tbl)
269 (set-case-syntax-pair ?$,1(*(B ?$,1(z(B tbl)
270 (set-case-syntax-pair ?$,1(+(B ?$,1({(B tbl)
271 (set-case-syntax-pair ?$,1(,(B ?$,1(|(B tbl)
272 (set-case-syntax-pair ?$,1(.(B ?$,1(~(B tbl)
273 (set-case-syntax-pair ?$,1(/(B ?$,1((B tbl)
274 (set-case-syntax-pair ?$,1(0(B ?$,1(P(B tbl)
275 (set-case-syntax-pair ?$,1(1(B ?$,1(Q(B tbl)
276 (set-case-syntax-pair ?$,1(2(B ?$,1(R(B tbl)
277 (set-case-syntax-pair ?$,1(3(B ?$,1(S(B tbl)
278 (set-case-syntax-pair ?$,1(4(B ?$,1(T(B tbl)
279 (set-case-syntax-pair ?$,1(5(B ?$,1(U(B tbl)
280 (set-case-syntax-pair ?$,1(6(B ?$,1(V(B tbl)
281 (set-case-syntax-pair ?$,1(7(B ?$,1(W(B tbl)
282 (set-case-syntax-pair ?$,1(8(B ?$,1(X(B tbl)
283 (set-case-syntax-pair ?$,1(9(B ?$,1(Y(B tbl)
284 (set-case-syntax-pair ?$,1(:(B ?$,1(Z(B tbl)
285 (set-case-syntax-pair ?$,1(;(B ?$,1([(B tbl)
286 (set-case-syntax-pair ?$,1(<(B ?$,1(\(B tbl)
287 (set-case-syntax-pair ?$,1(=(B ?$,1(](B tbl)
288 (set-case-syntax-pair ?$,1(>(B ?$,1(^(B tbl)
289 (set-case-syntax-pair ?$,1(?(B ?$,1(_(B tbl)
290 (set-case-syntax-pair ?$,1(@(B ?$,1(`(B tbl)
291 (set-case-syntax-pair ?$,1(A(B ?$,1(a(B tbl)
292 (set-case-syntax-pair ?$,1(B(B ?$,1(b(B tbl)
293 (set-case-syntax-pair ?$,1(C(B ?$,1(c(B tbl)
294 (set-case-syntax-pair ?$,1(D(B ?$,1(d(B tbl)
295 (set-case-syntax-pair ?$,1(E(B ?$,1(e(B tbl)
296 (set-case-syntax-pair ?$,1(F(B ?$,1(f(B tbl)
297 (set-case-syntax-pair ?$,1(G(B ?$,1(g(B tbl)
298 (set-case-syntax-pair ?$,1(H(B ?$,1(h(B tbl)
299 (set-case-syntax-pair ?$,1(I(B ?$,1(i(B tbl)
300 (set-case-syntax-pair ?$,1(J(B ?$,1(j(B tbl)
301 (set-case-syntax-pair ?$,1(K(B ?$,1(k(B tbl)
302 (set-case-syntax-pair ?$,1(L(B ?$,1(l(B tbl)
303 (set-case-syntax-pair ?$,1(M(B ?$,1(m(B tbl)
304 (set-case-syntax-pair ?$,1(N(B ?$,1(n(B tbl)
305 (set-case-syntax-pair ?$,1(O(B ?$,1(o(B tbl))
306 245
307;; Devanagari character set 246;; Devanagari character set
308 247
309;;; Commented out since the categories appear not to be used anywhere 248;;; Commented out since the categories appear not to be used anywhere
310;;; and word syntax is the default. 249;;; and word syntax is the default.
311;; (let ((deflist '(;; chars syntax category 250;; (let ((deflist '(;; chars syntax category
312;; ("$(5!!!"!#(B" "w" ?7) ; vowel-modifying diacritical mark 251;; ("" "w" ?7) ; vowel-modifying diacritical mark
313;; ; chandrabindu, anuswar, visarga 252;; ; chandrabindu, anuswar, visarga
314;; ("$(5!$(B-$(5!2(B" "w" ?1) ; independent vowel 253;; ("-" "w" ?1) ; independent vowel
315;; ("$(5!3(B-$(5!X(B" "w" ?0) ; consonant 254;; ("-" "w" ?0) ; consonant
316;; ("$(5!Z(B-$(5!g(B" "w" ?8) ; matra 255;; ("-" "w" ?8) ; matra
317;; ("$(5!q(B-$(5!z(B" "w" ?6) ; digit 256;; ("-" "w" ?6) ; digit
318;; ;; Unicode equivalents 257;; ;; Unicode equivalents
319;; ("$,15A5B5C(B" "w" ?7) ; vowel-modifying diacritical mark 258;; ("ँंः" "w" ?7) ; vowel-modifying diacritical mark
320;; ; chandrabindu, anuswar, visarga 259;; ; chandrabindu, anuswar, visarga
321;; ("$,15E(B-$,15M(B" "w" ?1) ; independent vowel 260;; ("अ-ऍ" "w" ?1) ; independent vowel
322;; ("$,15U(B-$,15y(B" "w" ?0) ; consonant 261;; ("क-ह" "w" ?0) ; consonant
323;; ("$,15~(B-$,16)(B" "w" ?8) ; matra 262;; ("ा-ॉ" "w" ?8) ; matra
324;; ("$,16F(B-$,16O(B" "w" ?6) ; digit 263;; ("०-९" "w" ?6) ; digit
325;; )) 264;; ))
326;; elm chars len syntax category to ch i) 265;; elm chars len syntax category to ch i)
327;; (while deflist 266;; (while deflist
@@ -349,9 +288,9 @@
349;; (modify-category-entry (make-char 'ethiopic) ?e) 288;; (modify-category-entry (make-char 'ethiopic) ?e)
350;; (modify-syntax-entry (make-char 'ethiopic) "w") 289;; (modify-syntax-entry (make-char 'ethiopic) "w")
351(modify-category-entry '(#x1200 . #x137b) ?e) 290(modify-category-entry '(#x1200 . #x137b) ?e)
352(let ((chars '(?$(3$h(B ?$(3$i(B ?$(3$j(B ?$(3$k(B ?$(3$l(B ?$(3$m(B ?$(3$n(B ?$(3$o(B ?$(3%i(B ?$(3%t(B ?$(3%u(B ?$(3%v(B ?$(3%w(B ?$(3%x(B 291(let ((chars '(? ? ? ? ? ? ? ? ? ? ? ? ? ?
353 ;; Unicode equivalents of the above: 292 ;; Unicode equivalents of the above:
354 ?$,1Q!(B ?$,1Q"(B ?$,1Q#(B ?$,1Q$(B ?$,1Q%(B ?$,1Q&(B ?$,1Q'(B ?$,1Q((B ?$,3op(B ?$,3o{(B ?$,3o|(B ?$,3o}(B ?$,3o~(B ?$,3o(B))) 293 ?፡ ?። ?፣ ?፤ ?፥ ?፦ ?፧ ?፨ ?ﷰ ?ﷻ ?﷼ ?﷽ ?﷾ ?﷿)))
355 (while chars 294 (while chars
356 (modify-syntax-entry (car chars) ".") 295 (modify-syntax-entry (car chars) ".")
357 (setq chars (cdr chars)))) 296 (setq chars (cdr chars))))
@@ -369,93 +308,59 @@
369;; (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w") 308;; (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w")
370;; (setq c (1+ c)))) 309;; (setq c (1+ c))))
371;; (modify-syntax-entry (make-char 'greek-iso8859-7 160) "w") ; NBSP 310;; (modify-syntax-entry (make-char 'greek-iso8859-7 160) "w") ; NBSP
372;; (modify-syntax-entry ?,F7(B ".") 311;; (modify-syntax-entry ?· ".")
373;; (modify-syntax-entry ?,F;(B ".") 312;; (modify-syntax-entry ?» ".")
374;; (modify-syntax-entry ?,F=(B ".") 313;; (modify-syntax-entry ?½ ".")
375(let ((tbl (standard-case-table))) 314(let ((tbl (standard-case-table)))
376 ;; Fixme: non-letter syntax copied from latin-1, but that's dubious 315 ;; Fixme: non-letter syntax copied from latin-1, but that's dubious
377 ;; in several cases. 316 ;; in several cases.
378 (set-case-syntax ?,F!(B "." tbl) 317 (set-case-syntax ?‘ "." tbl)
379 (set-case-syntax ?,F"(B "." tbl) 318 (set-case-syntax ?’ "." tbl)
380 (set-case-syntax ?,F&(B "." tbl) 319 (set-case-syntax ?¦ "." tbl)
381 (set-case-syntax ?,F&(B "_" tbl) 320 (set-case-syntax ?¦ "_" tbl)
382 (set-case-syntax ?,F'(B "." tbl) 321 (set-case-syntax ?§ "." tbl)
383 (set-case-syntax ?,F)(B "_" tbl) 322 (set-case-syntax ?© "_" tbl)
384 (set-case-syntax ?,F+(B "." tbl) 323 (set-case-syntax ?\« "." tbl)
385 (set-case-syntax ?,F,(B "_" tbl) 324 (set-case-syntax ?¬ "_" tbl)
386 (set-case-syntax ?,F-(B "_" tbl) 325 (set-case-syntax ?­ "_" tbl)
387 (set-case-syntax ?,F/(B "." tbl) 326 (set-case-syntax ?― "." tbl)
388 (set-case-syntax ?,F0(B "_" tbl) 327 (set-case-syntax ?° "_" tbl)
389 (set-case-syntax ?,F1(B "_" tbl) 328 (set-case-syntax ?± "_" tbl)
390;; (set-case-syntax ?,F7(B "_" tbl) 329;; (set-case-syntax ?· "_" tbl)
391;; (set-case-syntax ?,F=(B "_" tbl) 330;; (set-case-syntax ?½ "_" tbl)
392 (set-case-syntax-pair ?,FA(B ?,Fa(B tbl) 331 (set-case-syntax-pair ?Α ?α tbl)
393 (set-case-syntax-pair ?,FB(B ?,Fb(B tbl) 332 (set-case-syntax-pair ?Β ?β tbl)
394 (set-case-syntax-pair ?,FC(B ?,Fc(B tbl) 333 (set-case-syntax-pair ?Γ ?γ tbl)
395 (set-case-syntax-pair ?,FD(B ?,Fd(B tbl) 334 (set-case-syntax-pair ?Δ ?δ tbl)
396 (set-case-syntax-pair ?,FE(B ?,Fe(B tbl) 335 (set-case-syntax-pair ?Ε ?ε tbl)
397 (set-case-syntax-pair ?,FF(B ?,Ff(B tbl) 336 (set-case-syntax-pair ?Ζ ?ζ tbl)
398 (set-case-syntax-pair ?,FG(B ?,Fg(B tbl) 337 (set-case-syntax-pair ?Η ?η tbl)
399 (set-case-syntax-pair ?,FH(B ?,Fh(B tbl) 338 (set-case-syntax-pair ?Θ ?θ tbl)
400 (set-case-syntax-pair ?,FI(B ?,Fi(B tbl) 339 (set-case-syntax-pair ?Ι ?ι tbl)
401 (set-case-syntax-pair ?,FJ(B ?,Fj(B tbl) 340 (set-case-syntax-pair ?Κ ?κ tbl)
402 (set-case-syntax-pair ?,FK(B ?,Fk(B tbl) 341 (set-case-syntax-pair ?Λ ?λ tbl)
403 (set-case-syntax-pair ?,FL(B ?,Fl(B tbl) 342 (set-case-syntax-pair ?Μ ?μ tbl)
404 (set-case-syntax-pair ?,FM(B ?,Fm(B tbl) 343 (set-case-syntax-pair ?Ν ?ν tbl)
405 (set-case-syntax-pair ?,FN(B ?,Fn(B tbl) 344 (set-case-syntax-pair ?Ξ ?ξ tbl)
406 (set-case-syntax-pair ?,FO(B ?,Fo(B tbl) 345 (set-case-syntax-pair ?Ο ?ο tbl)
407 (set-case-syntax-pair ?,FP(B ?,Fp(B tbl) 346 (set-case-syntax-pair ?Π ?π tbl)
408 (set-case-syntax-pair ?,FQ(B ?,Fq(B tbl) 347 (set-case-syntax-pair ?Ρ ?ρ tbl)
409 (set-case-syntax-pair ?,FS(B ?,Fs(B tbl) 348 (set-case-syntax-pair ?Σ ?σ tbl)
410 (set-case-syntax-pair ?,FT(B ?,Ft(B tbl) 349 (set-case-syntax-pair ?Τ ?τ tbl)
411 (set-case-syntax-pair ?,FU(B ?,Fu(B tbl) 350 (set-case-syntax-pair ?Υ ?υ tbl)
412 (set-case-syntax-pair ?,FV(B ?,Fv(B tbl) 351 (set-case-syntax-pair ?Φ ?φ tbl)
413 (set-case-syntax-pair ?,FW(B ?,Fw(B tbl) 352 (set-case-syntax-pair ?Χ ?χ tbl)
414 (set-case-syntax-pair ?,FX(B ?,Fx(B tbl) 353 (set-case-syntax-pair ?Ψ ?ψ tbl)
415 (set-case-syntax-pair ?,FY(B ?,Fy(B tbl) 354 (set-case-syntax-pair ?Ω ?ω tbl)
416 (set-case-syntax-pair ?,FZ(B ?,Fz(B tbl) 355 (set-case-syntax-pair ?Ϊ ?ϊ tbl)
417 (set-case-syntax-pair ?,F[(B ?,F{(B tbl) 356 (set-case-syntax-pair ?Ϋ ?ϋ tbl)
418 (set-case-syntax-pair ?,F?(B ?,F~(B tbl) 357 (set-case-syntax-pair ?Ώ ?ώ tbl)
419 (set-case-syntax-pair ?,F>(B ?,F}(B tbl) 358 (set-case-syntax-pair ?Ύ ?ύ tbl)
420 (set-case-syntax-pair ?,F<(B ?,F|(B tbl) 359 (set-case-syntax-pair ?Ό ?ό tbl)
421 (set-case-syntax-pair ?,F6(B ?,F\(B tbl) 360 (set-case-syntax-pair ?Ά ?ά tbl)
422 (set-case-syntax-pair ?,F8(B ?,F](B tbl) 361 (set-case-syntax-pair ?Έ ?έ tbl)
423 (set-case-syntax-pair ?,F9(B ?,F^(B tbl) 362 (set-case-syntax-pair ?Ή ?ή tbl)
424 (set-case-syntax-pair ?,F:(B ?,F_(B tbl) 363 (set-case-syntax-pair ?Ί ?ί tbl))
425 ;; Unicode equivalents
426 (set-case-syntax-pair ?$,1&q(B ?$,1'1(B tbl)
427 (set-case-syntax-pair ?$,1&r(B ?$,1'2(B tbl)
428 (set-case-syntax-pair ?$,1&s(B ?$,1'3(B tbl)
429 (set-case-syntax-pair ?$,1&t(B ?$,1'4(B tbl)
430 (set-case-syntax-pair ?$,1&u(B ?$,1'5(B tbl)
431 (set-case-syntax-pair ?$,1&v(B ?$,1'6(B tbl)
432 (set-case-syntax-pair ?$,1&w(B ?$,1'7(B tbl)
433 (set-case-syntax-pair ?$,1&x(B ?$,1'8(B tbl)
434 (set-case-syntax-pair ?$,1&y(B ?$,1'9(B tbl)
435 (set-case-syntax-pair ?$,1&z(B ?$,1':(B tbl)
436 (set-case-syntax-pair ?$,1&{(B ?$,1';(B tbl)
437 (set-case-syntax-pair ?$,1&|(B ?$,1'<(B tbl)
438 (set-case-syntax-pair ?$,1&}(B ?$,1'=(B tbl)
439 (set-case-syntax-pair ?$,1&~(B ?$,1'>(B tbl)
440 (set-case-syntax-pair ?$,1&(B ?$,1'?(B tbl)
441 (set-case-syntax-pair ?$,1' (B ?$,1'@(B tbl)
442 (set-case-syntax-pair ?$,1'!(B ?$,1'A(B tbl)
443 (set-case-syntax-pair ?$,1'#(B ?$,1'C(B tbl)
444 (set-case-syntax-pair ?$,1'$(B ?$,1'D(B tbl)
445 (set-case-syntax-pair ?$,1'%(B ?$,1'E(B tbl)
446 (set-case-syntax-pair ?$,1'&(B ?$,1'F(B tbl)
447 (set-case-syntax-pair ?$,1''(B ?$,1'G(B tbl)
448 (set-case-syntax-pair ?$,1'((B ?$,1'H(B tbl)
449 (set-case-syntax-pair ?$,1')(B ?$,1'I(B tbl)
450 (set-case-syntax-pair ?$,1'*(B ?$,1'J(B tbl)
451 (set-case-syntax-pair ?$,1'+(B ?$,1'K(B tbl)
452 (set-case-syntax-pair ?$,1&o(B ?$,1'N(B tbl)
453 (set-case-syntax-pair ?$,1&n(B ?$,1'M(B tbl)
454 (set-case-syntax-pair ?$,1&l(B ?$,1'L(B tbl)
455 (set-case-syntax-pair ?$,1&f(B ?$,1',(B tbl)
456 (set-case-syntax-pair ?$,1&h(B ?$,1'-(B tbl)
457 (set-case-syntax-pair ?$,1&i(B ?$,1'.(B tbl)
458 (set-case-syntax-pair ?$,1&j(B ?$,1'/(B tbl))
459 364
460;; Hebrew character set (ISO-8859-8) 365;; Hebrew character set (ISO-8859-8)
461 366
@@ -494,12 +399,12 @@
494;;; and word syntax is the default. 399;;; and word syntax is the default.
495;; (let ((deflist ; 400;; (let ((deflist ;
496;; '(;; chars syntax category 401;; '(;; chars syntax category
497;; ("(5!"#(B" "w" ?7) ; vowel-modifying diacritical mark 402;; ("" "w" ?7) ; vowel-modifying diacritical mark
498;; ; chandrabindu, anuswar, visarga 403;; ; chandrabindu, anuswar, visarga
499;; ("(5$(B-(52(B" "w" ?1) ; base (independent) vowel 404;; ("-" "w" ?1) ; base (independent) vowel
500;; ("(53(B-(5X(B" "w" ?0) ; consonant 405;; ("-" "w" ?0) ; consonant
501;; ("(5Z(B-(5g(B" "w" ?8) ; matra 406;; ("-" "w" ?8) ; matra
502;; ("(5q(B-(5z(B" "w" ?6) ; digit 407;; ("-" "w" ?6) ; digit
503;; )) 408;; ))
504;; elm chars len syntax category to ch i) 409;; elm chars len syntax category to ch i)
505;; (while deflist 410;; (while deflist
@@ -591,7 +496,7 @@
591;; (modify-syntax-entry (make-char 'japanese-jisx0208 33) "_") 496;; (modify-syntax-entry (make-char 'japanese-jisx0208 33) "_")
592;; (modify-syntax-entry (make-char 'japanese-jisx0208 34) "_") 497;; (modify-syntax-entry (make-char 'japanese-jisx0208 34) "_")
593;; (modify-syntax-entry (make-char 'japanese-jisx0208 40) "_") 498;; (modify-syntax-entry (make-char 'japanese-jisx0208 40) "_")
594;; (let ((chars '(?$B!<(B ?$B!+(B ?$B!,(B ?$B!3(B ?$B!4(B ?$B!5(B ?$B!6(B ?$B!7(B ?$B!8(B ?$B!9(B ?$B!:(B ?$B!;(B))) 499;; (let ((chars '(? ? ? ? ? ? ? ? ? ? ? ?)))
595;; (while chars 500;; (while chars
596;; (modify-syntax-entry (car chars) "w") 501;; (modify-syntax-entry (car chars) "w")
597;; (setq chars (cdr chars)))) 502;; (setq chars (cdr chars))))
@@ -600,16 +505,16 @@
600 (decode-char 'japanese-jisx0208 #x227E)) "_") 505 (decode-char 'japanese-jisx0208 #x227E)) "_")
601(modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2821) 506(modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2821)
602 (decode-char 'japanese-jisx0208 #x287E)) "_") 507 (decode-char 'japanese-jisx0208 #x287E)) "_")
603(modify-syntax-entry ?\$B!J(B "($B!K(B") 508(modify-syntax-entry ?\ "(")
604(modify-syntax-entry ?\$B!N(B "($B!O(B") 509(modify-syntax-entry ?\ "(")
605(modify-syntax-entry ?\$B!P(B "($B!Q(B") 510(modify-syntax-entry ?\ "(")
606(modify-syntax-entry ?\$B!V(B "($B!W(B") 511(modify-syntax-entry ?\ "(")
607(modify-syntax-entry ?\$B!X(B "($B!Y(B") 512(modify-syntax-entry ?\ "(")
608(modify-syntax-entry ?\$B!K(B ")$B!J(B") 513(modify-syntax-entry ?\ ")")
609(modify-syntax-entry ?\$B!O(B ")$B!N(B") 514(modify-syntax-entry ?\ ")")
610(modify-syntax-entry ?\$B!Q(B ")$B!P(B") 515(modify-syntax-entry ?\ ")")
611(modify-syntax-entry ?\$B!W(B ")$B!V(B") 516(modify-syntax-entry ?\ ")")
612(modify-syntax-entry ?\$B!Y(B ")$B!X(B") 517(modify-syntax-entry ?\ ")")
613 518
614;; (modify-category-entry (make-char 'japanese-jisx0208 35) ?A) 519;; (modify-category-entry (make-char 'japanese-jisx0208 35) ?A)
615;; (modify-category-entry (make-char 'japanese-jisx0208 36) ?H) 520;; (modify-category-entry (make-char 'japanese-jisx0208 36) ?H)
@@ -620,13 +525,13 @@
620;; (while (< row 127) 525;; (while (< row 127)
621;; (modify-category-entry (make-char 'japanese-jisx0208 row) ?C) 526;; (modify-category-entry (make-char 'japanese-jisx0208 row) ?C)
622;; (setq row (1+ row)))) 527;; (setq row (1+ row))))
623(modify-category-entry ?$B!<(B ?K) 528(modify-category-entry ? ?K)
624(let ((chars '(?$B!+(B ?$B!,(B))) 529(let ((chars '(? ?)))
625 (while chars 530 (while chars
626 (modify-category-entry (car chars) ?K) 531 (modify-category-entry (car chars) ?K)
627 (modify-category-entry (car chars) ?H) 532 (modify-category-entry (car chars) ?H)
628 (setq chars (cdr chars)))) 533 (setq chars (cdr chars))))
629(let ((chars '(?$B!3(B ?$B!4(B ?$B!5(B ?$B!6(B ?$B!7(B ?$B!8(B ?$B!9(B ?$B!:(B ?$B!;(B))) 534(let ((chars '(? ? ? ? ? ? ? ? ?)))
630 (while chars 535 (while chars
631 (modify-category-entry (car chars) ?C) 536 (modify-category-entry (car chars) ?C)
632 (setq chars (cdr chars)))) 537 (setq chars (cdr chars))))
@@ -643,15 +548,15 @@
643 548
644;; JISX0201-Kana 549;; JISX0201-Kana
645;; (modify-syntax-entry (make-char 'katakana-jisx0201) "w") 550;; (modify-syntax-entry (make-char 'katakana-jisx0201) "w")
646(let ((chars '(?(I!(B ?(I$(B ?(I%(B 551(let ((chars '(?｡ ?､ ?･
647 ;; Unicode: 552 ;; Unicode:
648 ?$,3sa(B ?$,3sd(B ?$,3se(B))) 553 ?｡ ?､ ?･)))
649 (while chars 554 (while chars
650 (modify-syntax-entry (car chars) ".") 555 (modify-syntax-entry (car chars) ".")
651 (setq chars (cdr chars)))) 556 (setq chars (cdr chars))))
652 557
653(modify-syntax-entry ?\(I"(B "((I#(B") 558(modify-syntax-entry ?\｢ "(｣")
654(modify-syntax-entry ?\(I#(B "((I"(B") 559(modify-syntax-entry ?\｣ "(｢")
655 560
656;; Korean character set (KSC5601) 561;; Korean character set (KSC5601)
657 562
@@ -695,23 +600,23 @@
695 (modify-category-entry (decode-char 'ucs (+ i #xe80)) ?o)) 600 (modify-category-entry (decode-char 'ucs (+ i #xe80)) ?o))
696 601
697(let ((deflist '(;; chars syntax category 602(let ((deflist '(;; chars syntax category
698 ("(1!(B-(1N(B" "w" ?0) ; consonant 603 ("ກ-ຮ" "w" ?0) ; consonant
699 ("(1PRS]`(B-(1d(B" "w" ?1) ; vowel base 604 ("ະາຳຽເ-ໄ" "w" ?1) ; vowel base
700 ("(1QT(B-(1W[m(B" "w" ?2) ; vowel upper 605 ("ັິ-ືົໍ" "w" ?2) ; vowel upper
701 ("(1XY(B" "w" ?3) ; vowel lower 606 ("ຸູ" "w" ?3) ; vowel lower
702 ("(1h(B-(1l(B" "w" ?4) ; tone mark 607 ("່-໌" "w" ?4) ; tone mark
703 ("(1\(B" "w" ?9) ; semivowel lower 608 ("ຼ" "w" ?9) ; semivowel lower
704 ("(1p(B-(1y(B" "w" ?6) ; digit 609 ("໐-໙" "w" ?6) ; digit
705 ("(1Of(B" "_" ?5) ; symbol 610 ("ຯໆ" "_" ?5) ; symbol
706 ;; Unicode equivalents 611 ;; Unicode equivalents
707 ("$,1D!(B-$,1DN(B" "w" ?0) ; consonant 612 ("ກ-ຮ" "w" ?0) ; consonant
708 ("$,1DPDRDSD]D`(B-$,1Dd(B" "w" ?1) ; vowel base 613 ("ະາຳຽເ-ໄ" "w" ?1) ; vowel base
709 ("$,1DQDT(B-$,1DWD[Dm(B" "w" ?2) ; vowel upper 614 ("ັິ-ືົໍ" "w" ?2) ; vowel upper
710 ("$,1DXDY(B" "w" ?3) ; vowel lower 615 ("ຸູ" "w" ?3) ; vowel lower
711 ("$,1Dh(B-$,1Dk(B" "w" ?4) ; tone mark 616 ("່-໋" "w" ?4) ; tone mark
712 ("$,1D\D](B" "w" ?9) ; semivowel lower 617 ("ຼຽ" "w" ?9) ; semivowel lower
713 ("$,1Dp(B-$,1Dy(B" "w" ?6) ; digit 618 ("໐-໙" "w" ?6) ; digit
714 ("$,1DODf(B" "_" ?5) ; symbol 619 ("ຯໆ" "_" ?5) ; symbol
715 )) 620 ))
716 elm chars len syntax category to ch i) 621 elm chars len syntax category to ch i)
717 (while deflist 622 (while deflist
@@ -742,21 +647,13 @@
742 (modify-category-entry (decode-char 'ucs (+ i #xe00)) ?t)) 647 (modify-category-entry (decode-char 'ucs (+ i #xe00)) ?t))
743 648
744(let ((deflist '(;; chars syntax category 649(let ((deflist '(;; chars syntax category
745 (",T!(B-,TCEG(B-,TN(B" "w" ?0) ; consonant 650 ("ก-รลว-ฮ" "w" ?0) ; consonant
746 (",TDFPRS`(B-,Te(B" "w" ?1) ; vowel base 651 ("ฤฦะาำเ-ๅ" "w" ?1) ; vowel base
747 (",TQT(B-,TWgn(B" "w" ?2) ; vowel upper 652 ("ัิ-ื็๎" "w" ?2) ; vowel upper
748 (",TX(B-,TZ(B" "w" ?3) ; vowel lower 653 ("ุ-ฺ" "w" ?3) ; vowel lower
749 (",Th(B-,Tm(B" "w" ?4) ; tone mark 654 ("่-ํ" "w" ?4) ; tone mark
750 (",Tp(B-,Ty(B" "w" ?6) ; digit 655 ("๐-๙" "w" ?6) ; digit
751 (",TOf_oz{(B" "_" ?5) ; symbol 656 ("ฯๆ฿๏๚๛" "_" ?5) ; symbol
752 ;; Unicode equivalents
753 ("$,1Ba(B-$,1C#C%C'(B-$,1C.(B" "w" ?0) ; consonant
754 ("$,1C$C&C0C2C3C@(B-$,1CE(B" "w" ?1) ; vowel base
755 ("$,1C1C4(B-$,1C7CGCN(B" "w" ?2) ; vowel upper
756 ("$,1C8(B-$,1C:(B" "w" ?3) ; vowel lower
757 ("$,1CH(B-$,1CM(B" "w" ?4) ; tone mark
758 ("$,1CP(B-$,1CY(B" "w" ?6) ; digit
759 ("$,1C/CFC?COCZC[(B" "_" ?5) ; symbol
760 )) 657 ))
761 elm chars len syntax category to ch i) 658 elm chars len syntax category to ch i)
762 (while deflist 659 (while deflist
@@ -788,32 +685,32 @@
788 (modify-category-entry (decode-char 'ucs (+ i #xf00)) ?q)) 685 (modify-category-entry (decode-char 'ucs (+ i #xf00)) ?q))
789 686
790(let ((deflist '(;; chars syntax category 687(let ((deflist '(;; chars syntax category
791 ("4$(7"!0"!1(B-4$(7"J0"J14"K0"K1(B" "w" ?0) ; consonant 688 ("-" "w" ?0) ; consonant
792 ("$(7#!(B-$(7#J#K#L#M!"!#(B" "w" ?0) ; 689 ("-" "w" ?0) ;
793 ("$(7$!(B-$(7$e(B" "w" ?0) ; 690 ("-" "w" ?0) ;
794 ("$(7%!(B-$(7%u(B" "w" ?0) ; 691 ("-" "w" ?0) ;
795 ("$(7"S"["\"]"^"a(B" "w" ?2) ; upper vowel 692 ("" "w" ?2) ; upper vowel
796 ("$(7"_"c"d"g"h"i"j"k"l(B" "w" ?2) ; upper modifier 693 ("" "w" ?2) ; upper modifier
797 ("$(7!I"Q"R"U"e!e!g(B" "w" ?3) ; lowel vowel/modifier 694 ("" "w" ?3) ; lowel vowel/modifier
798 ("$(7!P(B-$(7!Y!Z(B-$(7!c(B" "w" ?6) ; digit 695 ("--" "w" ?6) ; digit
799 ("$(7!;!=(B-$(7!B!D"`(B" "." ?|) ; line-break char 696 ("-" "." ?|) ; line-break char
800 ("$(8!;!=!?!@!A!D"`(B" "." ?|) ; 697 ("" "." ?|) ;
801 ("$(7!8!;!=(B-$(7!B!D"`!m!d(B" "." ?>) ; prohibition 698 ("-" "." ?>) ; prohibition
802 ("$(8!;!=!?!@!A!D"`(B" "." ?>) ; 699 ("" "." ?>) ;
803 ("$(7!0(B-$(7!:!l#R#S"f(B" "." ?<) ; prohibition 700 ("-" "." ?<) ; prohibition
804 ("$(7!C!E(B-$(7!H!J(B-$(7!O!f!h(B-$(7!k!n!o#O#P(B-$(7#`(B" "." ?q) ; others 701 ("----" "." ?q) ; others
805 702
806 ;; Unicode version (not complete) 703 ;; Unicode version (not complete)
807 ("$,1F (B-$,1FIFJ(B" "w" ?0) ; consonant 704 ("ཀ-ཀྵཪ" "w" ?0) ; consonant
808 ("$,1Fp(B-$,1G9G:G;G<(B" "w" ?0) ; 705 ("ྐ-ྐྵྺྻྼ" "w" ?0) ;
809 ("$,1FRFZF[F\F]F`(B" "w" ?2) ; upper vowel 706 ("ིེཻོཽྀ" "w" ?2) ; upper vowel
810 ("$,1F^FbFcFfFgFhFiFjFk(B" "w" ?2) ; upper modifier 707 ("ཾྂྃ྆྇ྈྉྊྋ" "w" ?2) ; upper modifier
811 ("$,1EYFPFQFTFdEuEw(B" "w" ?3) ; lowel vowel/modifier 708 ("༙཰྄ཱུ༵༷" "w" ?3) ; lowel vowel/modifier
812 ("$,1E`(B-$,1EiEj(B-$,1Es(B" "w" ?6) ; digit 709 ("༠-༩༪-༳" "w" ?6) ; digit
813 ("$,1EKEM(B-$,1ERETF_(B" "." ?|) ; line-break char 710 ("་།-༒༔ཿ" "." ?|) ; line-break char
814 ("$,1EHEKEM(B-$,1ERETF_E}Et(B" "." ?>) ; prohibition 711 ("༈་།-༒༔ཿ༽༴" "." ?>) ; prohibition
815 ("$,1E@(B-$,1EJE|GAGBFe(B" "." ?<) ; prohibition 712 ("ༀ-༊༼࿁࿂྅" "." ?<) ; prohibition
816 ("$,1ESEU(B-$,1EXEZ(B-$,1E_EvEx(B-$,1E{E~EG>G?(B-$,1GO(B" "." ?q) ; others 713 ("༓༕-༘༚-༟༶༸-༻༾༿྾྿-࿏" "." ?q) ; others
817 )) 714 ))
818 elm chars len syntax category to ch i) 715 elm chars len syntax category to ch i)
819 (while deflist 716 (while deflist
@@ -883,109 +780,109 @@
883 (set-case-syntax-pair 780 (set-case-syntax-pair
884 (decode-char 'ucs (1- c)) (decode-char 'ucs c) tbl)) 781 (decode-char 'ucs (1- c)) (decode-char 'ucs c) tbl))
885 (setq c (1+ c))) 782 (setq c (1+ c)))
886 (set-case-syntax-pair ?$,1 R(B ?$,1 S(B tbl) 783 (set-case-syntax-pair ?IJ ?ij tbl)
887 (set-case-syntax-pair ?$,1 T(B ?$,1 U(B tbl) 784 (set-case-syntax-pair ?Ĵ ?ĵ tbl)
888 (set-case-syntax-pair ?$,1 V(B ?$,1 W(B tbl) 785 (set-case-syntax-pair ?Ķ ?ķ tbl)
889;;; (set-case-syntax-pair ?$,1!8(B ?,A(B tbl) ; these two have different length! 786;;; (set-case-syntax-pair ?Ÿ ?ÿ tbl) ; these two have different length!
890 (set-case-syntax-pair ?$,1!9(B ?$,1!:(B tbl) 787 (set-case-syntax-pair ?Ź ?ź tbl)
891 (set-case-syntax-pair ?$,1!;(B ?$,1!<(B tbl) 788 (set-case-syntax-pair ?Ż ?ż tbl)
892 (set-case-syntax-pair ?$,1!=(B ?$,1!>(B tbl) 789 (set-case-syntax-pair ?Ž ?ž tbl)
893 790
894 ;; Latin Extended-B 791 ;; Latin Extended-B
895 (set-case-syntax-pair ?$,1!A(B ?$,1#S(B tbl) 792 (set-case-syntax-pair ?Ɓ ?ɓ tbl)
896 (set-case-syntax-pair ?$,1!B(B ?$,1!C(B tbl) 793 (set-case-syntax-pair ?Ƃ ?ƃ tbl)
897 (set-case-syntax-pair ?$,1!D(B ?$,1!E(B tbl) 794 (set-case-syntax-pair ?Ƅ ?ƅ tbl)
898 (set-case-syntax-pair ?$,1!F(B ?$,1#T(B tbl) 795 (set-case-syntax-pair ?Ɔ ?ɔ tbl)
899 (set-case-syntax-pair ?$,1!G(B ?$,1!H(B tbl) 796 (set-case-syntax-pair ?Ƈ ?ƈ tbl)
900 (set-case-syntax-pair ?$,1!I(B ?$,1#V(B tbl) 797 (set-case-syntax-pair ?Ɖ ?ɖ tbl)
901 (set-case-syntax-pair ?$,1!J(B ?$,1#W(B tbl) 798 (set-case-syntax-pair ?Ɗ ?ɗ tbl)
902 (set-case-syntax-pair ?$,1!K(B ?$,1!L(B tbl) 799 (set-case-syntax-pair ?Ƌ ?ƌ tbl)
903 (set-case-syntax-pair ?$,1!N(B ?$,1"=(B tbl) 800 (set-case-syntax-pair ?Ǝ ?ǝ tbl)
904 (set-case-syntax-pair ?$,1!O(B ?$,1#Y(B tbl) 801 (set-case-syntax-pair ?Ə ?ə tbl)
905 (set-case-syntax-pair ?$,1!P(B ?$,1#[(B tbl) 802 (set-case-syntax-pair ?Ɛ ?ɛ tbl)
906 (set-case-syntax-pair ?$,1!Q(B ?$,1!R(B tbl) 803 (set-case-syntax-pair ?Ƒ ?ƒ tbl)
907 (set-case-syntax-pair ?$,1!S(B ?$,1#`(B tbl) 804 (set-case-syntax-pair ?Ɠ ?ɠ tbl)
908 (set-case-syntax-pair ?$,1!T(B ?$,1#c(B tbl) 805 (set-case-syntax-pair ?Ɣ ?ɣ tbl)
909 (set-case-syntax-pair ?$,1!V(B ?$,1#i(B tbl) 806 (set-case-syntax-pair ?Ɩ ?ɩ tbl)
910 (set-case-syntax-pair ?$,1!W(B ?$,1#h(B tbl) 807 (set-case-syntax-pair ?Ɨ ?ɨ tbl)
911 (set-case-syntax-pair ?$,1!X(B ?$,1!Y(B tbl) 808 (set-case-syntax-pair ?Ƙ ?ƙ tbl)
912 (set-case-syntax-pair ?$,1!\(B ?$,1#o(B tbl) 809 (set-case-syntax-pair ?Ɯ ?ɯ tbl)
913 (set-case-syntax-pair ?$,1!](B ?$,1#r(B tbl) 810 (set-case-syntax-pair ?Ɲ ?ɲ tbl)
914 (set-case-syntax-pair ?$,1!_(B ?$,1#u(B tbl) 811 (set-case-syntax-pair ?Ɵ ?ɵ tbl)
915 (set-case-syntax-pair ?$,1!`(B ?$,1!a(B tbl) 812 (set-case-syntax-pair ?Ơ ?ơ tbl)
916 (set-case-syntax-pair ?$,1!b(B ?$,1!c(B tbl) 813 (set-case-syntax-pair ?Ƣ ?ƣ tbl)
917 (set-case-syntax-pair ?$,1!d(B ?$,1!e(B tbl) 814 (set-case-syntax-pair ?Ƥ ?ƥ tbl)
918 (set-case-syntax-pair ?$,1!f(B ?$,1$ (B tbl) 815 (set-case-syntax-pair ?Ʀ ?ʀ tbl)
919 (set-case-syntax-pair ?$,1!g(B ?$,1!h(B tbl) 816 (set-case-syntax-pair ?Ƨ ?ƨ tbl)
920 (set-case-syntax-pair ?$,1!i(B ?$,1$#(B tbl) 817 (set-case-syntax-pair ?Ʃ ?ʃ tbl)
921 (set-case-syntax-pair ?$,1!l(B ?$,1!m(B tbl) 818 (set-case-syntax-pair ?Ƭ ?ƭ tbl)
922 (set-case-syntax-pair ?$,1!n(B ?$,1$((B tbl) 819 (set-case-syntax-pair ?Ʈ ?ʈ tbl)
923 (set-case-syntax-pair ?$,1!o(B ?$,1!p(B tbl) 820 (set-case-syntax-pair ?Ư ?ư tbl)
924 (set-case-syntax-pair ?$,1!q(B ?$,1$*(B tbl) 821 (set-case-syntax-pair ?Ʊ ?ʊ tbl)
925 (set-case-syntax-pair ?$,1!r(B ?$,1$+(B tbl) 822 (set-case-syntax-pair ?Ʋ ?ʋ tbl)
926 (set-case-syntax-pair ?$,1!s(B ?$,1!t(B tbl) 823 (set-case-syntax-pair ?Ƴ ?ƴ tbl)
927 (set-case-syntax-pair ?$,1!u(B ?$,1!v(B tbl) 824 (set-case-syntax-pair ?Ƶ ?ƶ tbl)
928 (set-case-syntax-pair ?$,1!w(B ?$,1$2(B tbl) 825 (set-case-syntax-pair ?Ʒ ?ʒ tbl)
929 (set-case-syntax-pair ?$,1!x(B ?$,1!y(B tbl) 826 (set-case-syntax-pair ?Ƹ ?ƹ tbl)
930 (set-case-syntax-pair ?$,1!|(B ?$,1!}(B tbl) 827 (set-case-syntax-pair ?Ƽ ?ƽ tbl)
931 (set-case-syntax-pair ?$,1"$(B ?$,1"&(B tbl) 828 (set-case-syntax-pair ?DŽ ?dž tbl)
932 (set-case-syntax-pair ?$,1"%(B ?$,1"&(B tbl) 829 (set-case-syntax-pair ?Dž ?dž tbl)
933 (set-case-syntax-pair ?$,1"'(B ?$,1")(B tbl) 830 (set-case-syntax-pair ?LJ ?lj tbl)
934 (set-case-syntax-pair ?$,1"((B ?$,1")(B tbl) 831 (set-case-syntax-pair ?Lj ?lj tbl)
935 (set-case-syntax-pair ?$,1"*(B ?$,1",(B tbl) 832 (set-case-syntax-pair ?NJ ?nj tbl)
936 (set-case-syntax-pair ?$,1"+(B ?$,1",(B tbl) 833 (set-case-syntax-pair ?Nj ?nj tbl)
937 (set-case-syntax-pair ?$,1"-(B ?$,1".(B tbl) 834 (set-case-syntax-pair ?Ǎ ?ǎ tbl)
938 (set-case-syntax-pair ?$,1"/(B ?$,1"0(B tbl) 835 (set-case-syntax-pair ?Ǐ ?ǐ tbl)
939 (set-case-syntax-pair ?$,1"1(B ?$,1"2(B tbl) 836 (set-case-syntax-pair ?Ǒ ?ǒ tbl)
940 (set-case-syntax-pair ?$,1"3(B ?$,1"4(B tbl) 837 (set-case-syntax-pair ?Ǔ ?ǔ tbl)
941 (set-case-syntax-pair ?$,1"5(B ?$,1"6(B tbl) 838 (set-case-syntax-pair ?Ǖ ?ǖ tbl)
942 (set-case-syntax-pair ?$,1"7(B ?$,1"8(B tbl) 839 (set-case-syntax-pair ?Ǘ ?ǘ tbl)
943 (set-case-syntax-pair ?$,1"9(B ?$,1":(B tbl) 840 (set-case-syntax-pair ?Ǚ ?ǚ tbl)
944 (set-case-syntax-pair ?$,1";(B ?$,1"<(B tbl) 841 (set-case-syntax-pair ?Ǜ ?ǜ tbl)
945 (set-case-syntax-pair ?$,1">(B ?$,1"?(B tbl) 842 (set-case-syntax-pair ?Ǟ ?ǟ tbl)
946 (set-case-syntax-pair ?$,1"@(B ?$,1"A(B tbl) 843 (set-case-syntax-pair ?Ǡ ?ǡ tbl)
947 (set-case-syntax-pair ?$,1"B(B ?$,1"C(B tbl) 844 (set-case-syntax-pair ?Ǣ ?ǣ tbl)
948 (set-case-syntax-pair ?$,1"D(B ?$,1"E(B tbl) 845 (set-case-syntax-pair ?Ǥ ?ǥ tbl)
949 (set-case-syntax-pair ?$,1"F(B ?$,1"G(B tbl) 846 (set-case-syntax-pair ?Ǧ ?ǧ tbl)
950 (set-case-syntax-pair ?$,1"H(B ?$,1"I(B tbl) 847 (set-case-syntax-pair ?Ǩ ?ǩ tbl)
951 (set-case-syntax-pair ?$,1"J(B ?$,1"K(B tbl) 848 (set-case-syntax-pair ?Ǫ ?ǫ tbl)
952 (set-case-syntax-pair ?$,1"L(B ?$,1"M(B tbl) 849 (set-case-syntax-pair ?Ǭ ?ǭ tbl)
953 (set-case-syntax-pair ?$,1"N(B ?$,1"O(B tbl) 850 (set-case-syntax-pair ?Ǯ ?ǯ tbl)
954 ;; 01F0; F; 006A 030C; # LATIN SMALL LETTER J WITH CARON 851 ;; 01F0; F; 006A 030C; # LATIN SMALL LETTER J WITH CARON
955 (set-case-syntax-pair ?$,1"Q(B ?$,1"S(B tbl) 852 (set-case-syntax-pair ?DZ ?dz tbl)
956 (set-case-syntax-pair ?$,1"R(B ?$,1"S(B tbl) 853 (set-case-syntax-pair ?Dz ?dz tbl)
957 (set-case-syntax-pair ?$,1"T(B ?$,1"U(B tbl) 854 (set-case-syntax-pair ?Ǵ ?ǵ tbl)
958 (set-case-syntax-pair ?$,1"V(B ?$,1!U(B tbl) 855 (set-case-syntax-pair ?Ƕ ?ƕ tbl)
959 (set-case-syntax-pair ?$,1"W(B ?$,1!(B tbl) 856 (set-case-syntax-pair ?Ƿ ?ƿ tbl)
960 (set-case-syntax-pair ?$,1"X(B ?$,1"Y(B tbl) 857 (set-case-syntax-pair ?Ǹ ?ǹ tbl)
961 (set-case-syntax-pair ?$,1"Z(B ?$,1"[(B tbl) 858 (set-case-syntax-pair ?Ǻ ?ǻ tbl)
962 (set-case-syntax-pair ?$,1"\(B ?$,1"](B tbl) 859 (set-case-syntax-pair ?Ǽ ?ǽ tbl)
963 (set-case-syntax-pair ?$,1"^(B ?$,1"_(B tbl) 860 (set-case-syntax-pair ?Ǿ ?ǿ tbl)
964 (set-case-syntax-pair ?$,1"`(B ?$,1"a(B tbl) 861 (set-case-syntax-pair ?Ȁ ?ȁ tbl)
965 (set-case-syntax-pair ?$,1"b(B ?$,1"c(B tbl) 862 (set-case-syntax-pair ?Ȃ ?ȃ tbl)
966 (set-case-syntax-pair ?$,1"d(B ?$,1"e(B tbl) 863 (set-case-syntax-pair ?Ȅ ?ȅ tbl)
967 (set-case-syntax-pair ?$,1"f(B ?$,1"g(B tbl) 864 (set-case-syntax-pair ?Ȇ ?ȇ tbl)
968 (set-case-syntax-pair ?$,1"h(B ?$,1"i(B tbl) 865 (set-case-syntax-pair ?Ȉ ?ȉ tbl)
969 (set-case-syntax-pair ?$,1"j(B ?$,1"k(B tbl) 866 (set-case-syntax-pair ?Ȋ ?ȋ tbl)
970 (set-case-syntax-pair ?$,1"l(B ?$,1"m(B tbl) 867 (set-case-syntax-pair ?Ȍ ?ȍ tbl)
971 (set-case-syntax-pair ?$,1"n(B ?$,1"o(B tbl) 868 (set-case-syntax-pair ?Ȏ ?ȏ tbl)
972 (set-case-syntax-pair ?$,1"p(B ?$,1"q(B tbl) 869 (set-case-syntax-pair ?Ȑ ?ȑ tbl)
973 (set-case-syntax-pair ?$,1"r(B ?$,1"s(B tbl) 870 (set-case-syntax-pair ?Ȓ ?ȓ tbl)
974 (set-case-syntax-pair ?$,1"t(B ?$,1"u(B tbl) 871 (set-case-syntax-pair ?Ȕ ?ȕ tbl)
975 (set-case-syntax-pair ?$,1"v(B ?$,1"w(B tbl) 872 (set-case-syntax-pair ?Ȗ ?ȗ tbl)
976 (set-case-syntax-pair ?$,1"x(B ?$,1"y(B tbl) 873 (set-case-syntax-pair ?Ș ?ș tbl)
977 (set-case-syntax-pair ?$,1"z(B ?$,1"{(B tbl) 874 (set-case-syntax-pair ?Ț ?ț tbl)
978 (set-case-syntax-pair ?$,1"|(B ?$,1"}(B tbl) 875 (set-case-syntax-pair ?Ȝ ?ȝ tbl)
979 (set-case-syntax-pair ?$,1"~(B ?$,1"(B tbl) 876 (set-case-syntax-pair ?Ȟ ?ȟ tbl)
980 (set-case-syntax-pair ?$,1#"(B ?$,1##(B tbl) 877 (set-case-syntax-pair ?Ȣ ?ȣ tbl)
981 (set-case-syntax-pair ?$,1#$(B ?$,1#%(B tbl) 878 (set-case-syntax-pair ?Ȥ ?ȥ tbl)
982 (set-case-syntax-pair ?$,1#&(B ?$,1#'(B tbl) 879 (set-case-syntax-pair ?Ȧ ?ȧ tbl)
983 (set-case-syntax-pair ?$,1#((B ?$,1#)(B tbl) 880 (set-case-syntax-pair ?Ȩ ?ȩ tbl)
984 (set-case-syntax-pair ?$,1#*(B ?$,1#+(B tbl) 881 (set-case-syntax-pair ?Ȫ ?ȫ tbl)
985 (set-case-syntax-pair ?$,1#,(B ?$,1#-(B tbl) 882 (set-case-syntax-pair ?Ȭ ?ȭ tbl)
986 (set-case-syntax-pair ?$,1#.(B ?$,1#/(B tbl) 883 (set-case-syntax-pair ?Ȯ ?ȯ tbl)
987 (set-case-syntax-pair ?$,1#0(B ?$,1#1(B tbl) 884 (set-case-syntax-pair ?Ȱ ?ȱ tbl)
988 (set-case-syntax-pair ?$,1#2(B ?$,1#3(B tbl) 885 (set-case-syntax-pair ?Ȳ ?ȳ tbl)
989 886
990 ;; Latin Extended Additional 887 ;; Latin Extended Additional
991 (setq c #x1e00) 888 (setq c #x1e00)
@@ -1011,13 +908,13 @@
1011 (set-case-syntax-pair 908 (set-case-syntax-pair
1012 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl)) 909 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl))
1013 (setq c (1+ c))) 910 (setq c (1+ c)))
1014 (set-case-syntax-pair ?$,1&f(B ?$,1',(B tbl) 911 (set-case-syntax-pair ?Ά ?ά tbl)
1015 (set-case-syntax-pair ?$,1&h(B ?$,1'-(B tbl) 912 (set-case-syntax-pair ?Έ ?έ tbl)
1016 (set-case-syntax-pair ?$,1&i(B ?$,1'.(B tbl) 913 (set-case-syntax-pair ?Ή ?ή tbl)
1017 (set-case-syntax-pair ?$,1&j(B ?$,1'/(B tbl) 914 (set-case-syntax-pair ?Ί ?ί tbl)
1018 (set-case-syntax-pair ?$,1&l(B ?$,1'L(B tbl) 915 (set-case-syntax-pair ?Ό ?ό tbl)
1019 (set-case-syntax-pair ?$,1&n(B ?$,1'M(B tbl) 916 (set-case-syntax-pair ?Ύ ?ύ tbl)
1020 (set-case-syntax-pair ?$,1&o(B ?$,1'N(B tbl) 917 (set-case-syntax-pair ?Ώ ?ώ tbl)
1021 918
1022 ;; Armenian 919 ;; Armenian
1023 (setq c #x531) 920 (setq c #x531)
@@ -1037,30 +934,30 @@
1037 (set-case-syntax-pair 934 (set-case-syntax-pair
1038 (decode-char 'ucs (+ c 8)) (decode-char 'ucs c) tbl)) 935 (decode-char 'ucs (+ c 8)) (decode-char 'ucs c) tbl))
1039 (setq c (1+ c))) 936 (setq c (1+ c)))
1040 (set-case-syntax-pair ?$,1qx(B ?$,1qp(B tbl) 937 (set-case-syntax-pair ?Ᾰ ?ᾰ tbl)
1041 (set-case-syntax-pair ?$,1qy(B ?$,1qq(B tbl) 938 (set-case-syntax-pair ?Ᾱ ?ᾱ tbl)
1042 (set-case-syntax-pair ?$,1qz(B ?$,1q0(B tbl) 939 (set-case-syntax-pair ?Ὰ ?ὰ tbl)
1043 (set-case-syntax-pair ?$,1q{(B ?$,1q1(B tbl) 940 (set-case-syntax-pair ?Ά ?ά tbl)
1044 (set-case-syntax-pair ?$,1q|(B ?$,1qs(B tbl) 941 (set-case-syntax-pair ?ᾼ ?ᾳ tbl)
1045 (set-case-syntax-pair ?$,1r((B ?$,1q2(B tbl) 942 (set-case-syntax-pair ?Ὲ ?ὲ tbl)
1046 (set-case-syntax-pair ?$,1r)(B ?$,1q3(B tbl) 943 (set-case-syntax-pair ?Έ ?έ tbl)
1047 (set-case-syntax-pair ?$,1r*(B ?$,1q4(B tbl) 944 (set-case-syntax-pair ?Ὴ ?ὴ tbl)
1048 (set-case-syntax-pair ?$,1r+(B ?$,1q5(B tbl) 945 (set-case-syntax-pair ?Ή ?ή tbl)
1049 (set-case-syntax-pair ?$,1r,(B ?$,1r#(B tbl) 946 (set-case-syntax-pair ?ῌ ?ῃ tbl)
1050 (set-case-syntax-pair ?$,1r8(B ?$,1r0(B tbl) 947 (set-case-syntax-pair ?Ῐ ?ῐ tbl)
1051 (set-case-syntax-pair ?$,1r9(B ?$,1r1(B tbl) 948 (set-case-syntax-pair ?Ῑ ?ῑ tbl)
1052 (set-case-syntax-pair ?$,1r:(B ?$,1q6(B tbl) 949 (set-case-syntax-pair ?Ὶ ?ὶ tbl)
1053 (set-case-syntax-pair ?$,1r;(B ?$,1q7(B tbl) 950 (set-case-syntax-pair ?Ί ?ί tbl)
1054 (set-case-syntax-pair ?$,1rH(B ?$,1r@(B tbl) 951 (set-case-syntax-pair ?Ῠ ?ῠ tbl)
1055 (set-case-syntax-pair ?$,1rI(B ?$,1rA(B tbl) 952 (set-case-syntax-pair ?Ῡ ?ῡ tbl)
1056 (set-case-syntax-pair ?$,1rJ(B ?$,1q:(B tbl) 953 (set-case-syntax-pair ?Ὺ ?ὺ tbl)
1057 (set-case-syntax-pair ?$,1rK(B ?$,1q;(B tbl) 954 (set-case-syntax-pair ?Ύ ?ύ tbl)
1058 (set-case-syntax-pair ?$,1rL(B ?$,1rE(B tbl) 955 (set-case-syntax-pair ?Ῥ ?ῥ tbl)
1059 (set-case-syntax-pair ?$,1rX(B ?$,1q8(B tbl) 956 (set-case-syntax-pair ?Ὸ ?ὸ tbl)
1060 (set-case-syntax-pair ?$,1rY(B ?$,1q9(B tbl) 957 (set-case-syntax-pair ?Ό ?ό tbl)
1061 (set-case-syntax-pair ?$,1rZ(B ?$,1q<(B tbl) 958 (set-case-syntax-pair ?Ὼ ?ὼ tbl)
1062 (set-case-syntax-pair ?$,1r[(B ?$,1q=(B tbl) 959 (set-case-syntax-pair ?Ώ ?ώ tbl)
1063 (set-case-syntax-pair ?$,1r\(B ?$,1rS(B tbl) 960 (set-case-syntax-pair ?ῼ ?ῳ tbl)
1064 961
1065 ;; cyrillic 962 ;; cyrillic
1066 (setq c #x0400) 963 (setq c #x0400)
@@ -1081,11 +978,11 @@
1081 (set-case-syntax-pair 978 (set-case-syntax-pair
1082 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl)) 979 (decode-char 'ucs c) (decode-char 'ucs (1+ c)) tbl))
1083 (setq c (1+ c))) 980 (setq c (1+ c)))
1084 (set-case-syntax-pair ?$,1*!(B ?$,1*"(B tbl) 981 (set-case-syntax-pair ?Ӂ ?ӂ tbl)
1085 (set-case-syntax-pair ?$,1*#(B ?$,1*$(B tbl) 982 (set-case-syntax-pair ?Ӄ ?ӄ tbl)
1086 (set-case-syntax-pair ?$,1*'(B ?$,1*((B tbl) 983 (set-case-syntax-pair ?Ӈ ?ӈ tbl)
1087 (set-case-syntax-pair ?$,1*+(B ?$,1*,(B tbl) 984 (set-case-syntax-pair ?Ӌ ?ӌ tbl)
1088 (set-case-syntax-pair ?$,1*X(B ?$,1*Y(B tbl) 985 (set-case-syntax-pair ?Ӹ ?ӹ tbl)
1089 986
1090 ;; general punctuation 987 ;; general punctuation
1091 (setq c #x2000) 988 (setq c #x2000)
@@ -1123,10 +1020,10 @@
1123 (setq c (1+ c))) 1020 (setq c (1+ c)))
1124 1021
1125 ;; Ohm, Kelvin, Angstrom 1022 ;; Ohm, Kelvin, Angstrom
1126 (set-case-syntax-pair ?$,1uf(B ?$,1'I(B tbl) 1023 (set-case-syntax-pair ?Ω ?ω tbl)
1127;;; These mess up the case conversion of k and ,Ae(B. 1024;;; These mess up the case conversion of k and å.
1128;;; (set-case-syntax-pair ?$,1uj(B ?k tbl) 1025;;; (set-case-syntax-pair ?K ?k tbl)
1129;;; (set-case-syntax-pair ?$,1uk(B ?,Ae(B tbl) 1026;;; (set-case-syntax-pair ?Å ?å tbl)
1130 1027
1131 ;; Combining diacritics 1028 ;; Combining diacritics
1132 (setq c #x300) 1029 (setq c #x300)
@@ -1228,7 +1125,7 @@
1228 1125
1229 1126
1230;;; Local Variables: 1127;;; Local Variables:
1231;;; coding: iso-2022-7bit 1128;;; coding: utf-8-emacs
1232;;; End: 1129;;; End:
1233 1130
1234;;; characters.el ends here 1131;;; characters.el ends here
generated by cgit v1.2.1 (git 2.18.0) at 2026-01-25 07:56:02 +0000