3 |
;; Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN. |
;; Copyright (C) 1995, 1997 Electrotechnical Laboratory, JAPAN. |
4 |
;; Licensed to the Free Software Foundation. |
;; Licensed to the Free Software Foundation. |
5 |
;; Copyright (C) 2001 Free Software Foundation, Inc. |
;; Copyright (C) 2001 Free Software Foundation, Inc. |
6 |
|
;; Copyright (C) 2001, 2002 |
7 |
|
;; National Institute of Advanced Industrial Science and Technology (AIST) |
8 |
|
;; Registration Number H13PRO009 |
9 |
|
|
10 |
;; Keywords: multibyte character, character set, syntax, category |
;; Keywords: multibyte character, character set, syntax, category |
11 |
|
|
115 |
arabic-2-column))) |
arabic-2-column))) |
116 |
(while charsets |
(while charsets |
117 |
;; (modify-syntax-entry (make-char (car charsets)) "w") |
;; (modify-syntax-entry (make-char (car charsets)) "w") |
118 |
(modify-category-entry (make-char (car charsets)) ?b) |
(map-charset-chars |
119 |
|
#'(lambda (char ignore) |
120 |
|
(if (consp char) |
121 |
|
(let ((from (car char)) |
122 |
|
(to (cdr char))) |
123 |
|
(while (<= from to) |
124 |
|
(modify-category-entry from ?b) |
125 |
|
(setq from (1+ from)))) |
126 |
|
(modify-category-entry char ?b))) |
127 |
|
(car charsets)) |
128 |
(setq charsets (cdr charsets)))) |
(setq charsets (cdr charsets)))) |
129 |
(let ((ch #x600)) |
(let ((ch #x600)) |
130 |
(while (<= ch #x6ff) |
(while (<= ch #x6ff) |
142 |
;; Chinese character set (GB2312) |
;; Chinese character set (GB2312) |
143 |
|
|
144 |
;; (modify-syntax-entry (make-char 'chinese-gb2312) "w") |
;; (modify-syntax-entry (make-char 'chinese-gb2312) "w") |
145 |
(modify-syntax-entry (make-char 'chinese-gb2312 33) "_") |
;; (modify-syntax-entry (make-char 'chinese-gb2312 33) "_") |
146 |
(modify-syntax-entry (make-char 'chinese-gb2312 34) "_") |
;; (modify-syntax-entry (make-char 'chinese-gb2312 34) "_") |
147 |
(modify-syntax-entry (make-char 'chinese-gb2312 41) "_") |
;; (modify-syntax-entry (make-char 'chinese-gb2312 41) "_") |
148 |
(modify-syntax-entry ?\$A!2(B "($A!3(B") |
(modify-syntax-entry ?\$A!2(B "($A!3(B") |
149 |
(modify-syntax-entry ?\$A!4(B "($A!5(B") |
(modify-syntax-entry ?\$A!4(B "($A!5(B") |
150 |
(modify-syntax-entry ?\$A!6(B "($A!7(B") |
(modify-syntax-entry ?\$A!6(B "($A!7(B") |
175 |
(modify-syntax-entry ?\$,2=W(B ")$,2=V(B") |
(modify-syntax-entry ?\$,2=W(B ")$,2=V(B") |
176 |
(modify-syntax-entry ?\$,2=Q(B ")$,2=P(B") |
(modify-syntax-entry ?\$,2=Q(B ")$,2=P(B") |
177 |
|
|
178 |
(modify-category-entry (make-char 'chinese-gb2312) ?c) |
;; (modify-category-entry (make-char 'chinese-gb2312) ?c) |
179 |
(modify-category-entry (make-char 'chinese-gb2312) ?\|) |
;; (modify-category-entry (make-char 'chinese-gb2312) ?\|) |
180 |
(modify-category-entry (make-char 'chinese-gb2312 35) ?A) |
;; (modify-category-entry (make-char 'chinese-gb2312 35) ?A) |
181 |
(modify-category-entry (make-char 'chinese-gb2312 36) ?H) |
;; (modify-category-entry (make-char 'chinese-gb2312 36) ?H) |
182 |
(modify-category-entry (make-char 'chinese-gb2312 37) ?K) |
;; (modify-category-entry (make-char 'chinese-gb2312 37) ?K) |
183 |
(modify-category-entry (make-char 'chinese-gb2312 38) ?G) |
;; (modify-category-entry (make-char 'chinese-gb2312 38) ?G) |
184 |
(modify-category-entry (make-char 'chinese-gb2312 39) ?Y) |
;; (modify-category-entry (make-char 'chinese-gb2312 39) ?Y) |
185 |
(let ((row 48)) |
;; (let ((row 48)) |
186 |
(while (< row 127) |
;; (while (< row 127) |
187 |
(modify-category-entry (make-char 'chinese-gb2312 row) ?C) |
;; (modify-category-entry (make-char 'chinese-gb2312 row) ?C) |
188 |
(setq row (1+ row)))) |
;; (setq row (1+ row)))) |
189 |
|
|
190 |
;; Chinese character set (BIG5) |
;; Chinese character set (BIG5) |
191 |
|
|
192 |
(let ((generic-big5-1-char (make-char 'chinese-big5-1)) |
;; (let ((generic-big5-1-char (make-char 'chinese-big5-1)) |
193 |
(generic-big5-2-char (make-char 'chinese-big5-2))) |
;; (generic-big5-2-char (make-char 'chinese-big5-2))) |
194 |
;; (modify-syntax-entry generic-big5-1-char "w") |
;; (modify-syntax-entry generic-big5-1-char "w") |
195 |
;; (modify-syntax-entry generic-big5-2-char "w") |
;; (modify-syntax-entry generic-big5-2-char "w") |
196 |
|
|
197 |
(modify-category-entry generic-big5-1-char ?c) |
;; (modify-category-entry generic-big5-1-char ?c) |
198 |
(modify-category-entry generic-big5-2-char ?c) |
;; (modify-category-entry generic-big5-2-char ?c) |
199 |
|
|
200 |
(modify-category-entry generic-big5-1-char ?C) |
;; (modify-category-entry generic-big5-1-char ?C) |
201 |
(modify-category-entry generic-big5-2-char ?C) |
;; (modify-category-entry generic-big5-2-char ?C) |
202 |
|
|
203 |
(modify-category-entry generic-big5-1-char ?\|) |
;; (modify-category-entry generic-big5-1-char ?\|) |
204 |
(modify-category-entry generic-big5-2-char ?\|)) |
;; (modify-category-entry generic-big5-2-char ?\|)) |
205 |
|
|
206 |
|
|
207 |
;; Chinese character set (CNS11643) |
;; Chinese character set (CNS11643) |
208 |
|
|
209 |
(let ((cns-list '(chinese-cns11643-1 |
;; (let ((cns-list '(chinese-cns11643-1 |
210 |
chinese-cns11643-2 |
;; chinese-cns11643-2 |
211 |
chinese-cns11643-3 |
;; chinese-cns11643-3 |
212 |
chinese-cns11643-4 |
;; chinese-cns11643-4 |
213 |
chinese-cns11643-5 |
;; chinese-cns11643-5 |
214 |
chinese-cns11643-6 |
;; chinese-cns11643-6 |
215 |
chinese-cns11643-7)) |
;; chinese-cns11643-7)) |
216 |
generic-char) |
;; generic-char) |
217 |
(while cns-list |
;; (while cns-list |
218 |
(setq generic-char (make-char (car cns-list))) |
;; (setq generic-char (make-char (car cns-list))) |
219 |
;; (modify-syntax-entry generic-char "w") |
;; (modify-syntax-entry generic-char "w") |
220 |
(modify-category-entry generic-char ?c) |
;; (modify-category-entry generic-char ?c) |
221 |
(modify-category-entry generic-char ?C) |
;; (modify-category-entry generic-char ?C) |
222 |
(modify-category-entry generic-char ?|) |
;; (modify-category-entry generic-char ?|) |
223 |
(setq cns-list (cdr cns-list)))) |
;; (setq cns-list (cdr cns-list)))) |
224 |
|
|
225 |
;; Cyrillic character set (ISO-8859-5) |
;; Cyrillic character set (ISO-8859-5) |
226 |
|
|
227 |
(modify-category-entry (make-char 'cyrillic-iso8859-5) ?y) |
(modify-syntax-entry (decode-char 'iso-8859-5 160) " ") |
|
|
|
|
(modify-syntax-entry (make-char 'cyrillic-iso8859-5 160) " ") |
|
228 |
(modify-syntax-entry ?,L-(B ".") |
(modify-syntax-entry ?,L-(B ".") |
229 |
(modify-syntax-entry ?,Lp(B ".") |
(modify-syntax-entry ?,Lp(B ".") |
230 |
(modify-syntax-entry ?,L}(B ".") |
(modify-syntax-entry ?,L}(B ".") |
364 |
|
|
365 |
;; Ethiopic character set |
;; Ethiopic character set |
366 |
|
|
367 |
(modify-category-entry (make-char 'ethiopic) ?e) |
;; (modify-category-entry (make-char 'ethiopic) ?e) |
368 |
;; (modify-syntax-entry (make-char 'ethiopic) "w") |
;; (modify-syntax-entry (make-char 'ethiopic) "w") |
369 |
(dotimes (i (1+ (- #x137c #x1200))) |
(dotimes (i (1+ (- #x137c #x1200))) |
370 |
(modify-category-entry (decode-char 'ucs (+ #x1200 i)) ?e)) |
(modify-category-entry (decode-char 'ucs (+ #x1200 i)) ?e)) |
377 |
|
|
378 |
;; Greek character set (ISO-8859-7) |
;; Greek character set (ISO-8859-7) |
379 |
|
|
380 |
(modify-category-entry (make-char 'greek-iso8859-7) ?g) |
;; (modify-category-entry (make-char 'greek-iso8859-7) ?g) |
381 |
(let ((c #x370)) |
(let ((c #x370)) |
382 |
(while (<= c #x3ff) |
(while (<= c #x3ff) |
383 |
(modify-category-entry (decode-char 'ucs c) ?g) |
(modify-category-entry (decode-char 'ucs c) ?g) |
388 |
;; (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w") |
;; (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w") |
389 |
;; (setq c (1+ c)))) |
;; (setq c (1+ c)))) |
390 |
;; (modify-syntax-entry (make-char 'greek-iso8859-7 160) "w") ; NBSP |
;; (modify-syntax-entry (make-char 'greek-iso8859-7 160) "w") ; NBSP |
391 |
(modify-syntax-entry ?,F7(B ".") |
;; (modify-syntax-entry ?,F7(B ".") |
392 |
(modify-syntax-entry ?,F;(B ".") |
;; (modify-syntax-entry ?,F;(B ".") |
393 |
(modify-syntax-entry ?,F=(B ".") |
;; (modify-syntax-entry ?,F=(B ".") |
394 |
(let ((tbl (standard-case-table))) |
(let ((tbl (standard-case-table))) |
395 |
;; Fixme: non-letter syntax copied from latin-1, but that's dubious |
;; Fixme: non-letter syntax copied from latin-1, but that's dubious |
396 |
;; in several cases. |
;; in several cases. |
478 |
|
|
479 |
;; Hebrew character set (ISO-8859-8) |
;; Hebrew character set (ISO-8859-8) |
480 |
|
|
481 |
(modify-category-entry (make-char 'hebrew-iso8859-8) ?w) |
;; (modify-category-entry (make-char 'hebrew-iso8859-8) ?w) |
482 |
(let ((c #x591)) |
(let ((c #x591)) |
483 |
(while (<= c #x5f4) |
(while (<= c #x5f4) |
484 |
(modify-category-entry (decode-char 'ucs c) ?w) |
(modify-category-entry (decode-char 'ucs c) ?w) |
485 |
(setq c (1+ c)))) |
(setq c (1+ c)))) |
486 |
|
|
487 |
(modify-syntax-entry (make-char 'hebrew-iso8859-8 208) ".") ; PASEQ |
;; (modify-syntax-entry (make-char 'hebrew-iso8859-8 208) ".") ; PASEQ |
488 |
(modify-syntax-entry (make-char 'hebrew-iso8859-8 211) ".") ; SOF PASUQ |
;; (modify-syntax-entry (make-char 'hebrew-iso8859-8 211) ".") ; SOF PASUQ |
489 |
(modify-syntax-entry (decode-char 'ucs #x5be) ".") ; MAQAF |
(modify-syntax-entry (decode-char 'ucs #x5be) ".") ; MAQAF |
490 |
(modify-syntax-entry (decode-char 'ucs #x5c0) ".") ; PASEQ |
(modify-syntax-entry (decode-char 'ucs #x5c0) ".") ; PASEQ |
491 |
(modify-syntax-entry (decode-char 'ucs #x5c3) ".") ; SOF PASUQ |
(modify-syntax-entry (decode-char 'ucs #x5c3) ".") ; SOF PASUQ |
500 |
|
|
501 |
;; Indian character set (IS 13194 and other Emacs original Indian charsets) |
;; Indian character set (IS 13194 and other Emacs original Indian charsets) |
502 |
|
|
503 |
(modify-category-entry (make-char 'indian-is13194) ?i) |
;; (modify-category-entry (make-char 'indian-is13194) ?i) |
504 |
(modify-category-entry (make-char 'indian-2-column) ?I) |
;; (modify-category-entry (make-char 'indian-2-column) ?I) |
505 |
(modify-category-entry (make-char 'indian-glyph) ?I) |
;; (modify-category-entry (make-char 'indian-glyph) ?I) |
506 |
;; Unicode Devanagari block |
;; Unicode Devanagari block |
507 |
(let ((c #x901)) |
(let ((c #x901)) |
508 |
(while (<= c #x970) |
(while (<= c #x970) |
544 |
|
|
545 |
;; Japanese character set (JISX0201-kana, JISX0201-roman, JISX0208, JISX0212) |
;; Japanese character set (JISX0201-kana, JISX0201-roman, JISX0208, JISX0212) |
546 |
|
|
547 |
(modify-category-entry (make-char 'katakana-jisx0201) ?k) |
(map-charset-chars |
548 |
(modify-category-entry (make-char 'katakana-jisx0201) ?j) |
#'(lambda (char ignore) |
549 |
(modify-category-entry (make-char 'latin-jisx0201) ?r) |
(if (consp char) |
550 |
(modify-category-entry (make-char 'japanese-jisx0208) ?j) |
(let ((from (car char)) |
551 |
(modify-category-entry (make-char 'japanese-jisx0212) ?j) |
(to (car char))) |
552 |
(modify-category-entry (make-char 'katakana-jisx0201) ?\|) |
(while (<= from to) |
553 |
(modify-category-entry (make-char 'japanese-jisx0208) ?\|) |
(modify-category-entry from ?k) |
554 |
(modify-category-entry (make-char 'japanese-jisx0212) ?\|) |
(setq from (1+ from)))) |
555 |
|
(modify-category-entry char ?k))) |
556 |
|
'katakana-jisx0201) |
557 |
|
|
558 |
|
(map-charset-chars |
559 |
|
#'(lambda (char ignore) |
560 |
|
(if (consp char) |
561 |
|
(let ((from (car char)) |
562 |
|
(to (cdr char))) |
563 |
|
(while (<= from to) |
564 |
|
(modify-category-entry from ?r) |
565 |
|
(setq from (1+ from)))) |
566 |
|
(modify-category-entry char ?r))) |
567 |
|
'latin-jisx0201) |
568 |
|
(dolist (l '(katakana-jisx0201 japanese-jisx0208 japanese-jisx0212)) |
569 |
|
(map-charset-chars |
570 |
|
#'(lambda (char ignore) |
571 |
|
(if (consp char) |
572 |
|
(let ((from (car char)) |
573 |
|
(to (cdr char))) |
574 |
|
(while (<= from to) |
575 |
|
(modify-category-entry from ?j) |
576 |
|
(modify-category-entry from ?\|) |
577 |
|
(setq from (1+ from)))) |
578 |
|
(modify-category-entry char ?j) |
579 |
|
(modify-category-entry char ?\|))) |
580 |
|
l)) |
581 |
|
|
582 |
;; Unicode equivalents of JISX0201-kana |
;; Unicode equivalents of JISX0201-kana |
583 |
(let ((c #xff61)) |
(let ((c #xff61)) |
607 |
|
|
608 |
;; JISX0208 |
;; JISX0208 |
609 |
;; (modify-syntax-entry (make-char 'japanese-jisx0208) "w") |
;; (modify-syntax-entry (make-char 'japanese-jisx0208) "w") |
610 |
(modify-syntax-entry (make-char 'japanese-jisx0208 33) "_") |
;; (modify-syntax-entry (make-char 'japanese-jisx0208 33) "_") |
611 |
(modify-syntax-entry (make-char 'japanese-jisx0208 34) "_") |
;; (modify-syntax-entry (make-char 'japanese-jisx0208 34) "_") |
612 |
(modify-syntax-entry (make-char 'japanese-jisx0208 40) "_") |
;; (modify-syntax-entry (make-char 'japanese-jisx0208 40) "_") |
613 |
;; (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))) |
;; (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))) |
614 |
;; (while chars |
;; (while chars |
615 |
;; (modify-syntax-entry (car chars) "w") |
;; (modify-syntax-entry (car chars) "w") |
616 |
;; (setq chars (cdr chars)))) |
;; (setq chars (cdr chars)))) |
617 |
|
|
618 |
|
(modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2121) |
619 |
|
(decode-char 'japanese-jisx0208 #x227E)) "_") |
620 |
|
(modify-syntax-entry (cons (decode-char 'japanese-jisx0208 #x2821) |
621 |
|
(decode-char 'japanese-jisx0208 #x287E)) "_") |
622 |
(modify-syntax-entry ?\$B!J(B "($B!K(B") |
(modify-syntax-entry ?\$B!J(B "($B!K(B") |
623 |
(modify-syntax-entry ?\$B!N(B "($B!O(B") |
(modify-syntax-entry ?\$B!N(B "($B!O(B") |
624 |
(modify-syntax-entry ?\$B!P(B "($B!Q(B") |
(modify-syntax-entry ?\$B!P(B "($B!Q(B") |
630 |
(modify-syntax-entry ?\$B!W(B ")$B!V(B") |
(modify-syntax-entry ?\$B!W(B ")$B!V(B") |
631 |
(modify-syntax-entry ?\$B!Y(B ")$B!X(B") |
(modify-syntax-entry ?\$B!Y(B ")$B!X(B") |
632 |
|
|
633 |
(modify-category-entry (make-char 'japanese-jisx0208 35) ?A) |
;; (modify-category-entry (make-char 'japanese-jisx0208 35) ?A) |
634 |
(modify-category-entry (make-char 'japanese-jisx0208 36) ?H) |
;; (modify-category-entry (make-char 'japanese-jisx0208 36) ?H) |
635 |
(modify-category-entry (make-char 'japanese-jisx0208 37) ?K) |
;; (modify-category-entry (make-char 'japanese-jisx0208 37) ?K) |
636 |
(modify-category-entry (make-char 'japanese-jisx0208 38) ?G) |
;; (modify-category-entry (make-char 'japanese-jisx0208 38) ?G) |
637 |
(modify-category-entry (make-char 'japanese-jisx0208 39) ?Y) |
;; (modify-category-entry (make-char 'japanese-jisx0208 39) ?Y) |
638 |
(let ((row 48)) |
;; (let ((row 48)) |
639 |
(while (< row 127) |
;; (while (< row 127) |
640 |
(modify-category-entry (make-char 'japanese-jisx0208 row) ?C) |
;; (modify-category-entry (make-char 'japanese-jisx0208 row) ?C) |
641 |
(setq row (1+ row)))) |
;; (setq row (1+ row)))) |
642 |
(modify-category-entry ?$B!<(B ?K) |
(modify-category-entry ?$B!<(B ?K) |
643 |
(let ((chars '(?$B!+(B ?$B!,(B))) |
(let ((chars '(?$B!+(B ?$B!,(B))) |
644 |
(while chars |
(while chars |
652 |
|
|
653 |
;; JISX0212 |
;; JISX0212 |
654 |
;; (modify-syntax-entry (make-char 'japanese-jisx0212) "w") |
;; (modify-syntax-entry (make-char 'japanese-jisx0212) "w") |
655 |
(modify-syntax-entry (make-char 'japanese-jisx0212 33) "_") |
;; (modify-syntax-entry (make-char 'japanese-jisx0212 33) "_") |
656 |
(modify-syntax-entry (make-char 'japanese-jisx0212 34) "_") |
;; (modify-syntax-entry (make-char 'japanese-jisx0212 34) "_") |
657 |
(modify-syntax-entry (make-char 'japanese-jisx0212 35) "_") |
;; (modify-syntax-entry (make-char 'japanese-jisx0212 35) "_") |
658 |
|
|
659 |
(modify-category-entry (make-char 'japanese-jisx0212 ) ?C) |
(modify-syntax-entry (cons (decode-char 'japanese-jisx0212 #x2121) |
660 |
|
(decode-char 'japanese-jisx0212 #x237E)) |
661 |
|
"_") |
662 |
|
|
663 |
;; JISX0201-Kana |
;; JISX0201-Kana |
664 |
;; (modify-syntax-entry (make-char 'katakana-jisx0201) "w") |
;; (modify-syntax-entry (make-char 'katakana-jisx0201) "w") |
675 |
;; Korean character set (KSC5601) |
;; Korean character set (KSC5601) |
676 |
|
|
677 |
;; (modify-syntax-entry (make-char 'korean-ksc5601) "w") |
;; (modify-syntax-entry (make-char 'korean-ksc5601) "w") |
678 |
(modify-syntax-entry (make-char 'korean-ksc5601 33) "_") |
;; (modify-syntax-entry (make-char 'korean-ksc5601 33) "_") |
679 |
(modify-syntax-entry (make-char 'korean-ksc5601 34) "_") |
;; (modify-syntax-entry (make-char 'korean-ksc5601 34) "_") |
680 |
(modify-syntax-entry (make-char 'korean-ksc5601 38) "_") |
;; (modify-syntax-entry (make-char 'korean-ksc5601 38) "_") |
681 |
(modify-syntax-entry (make-char 'korean-ksc5601 39) "_") |
;; (modify-syntax-entry (make-char 'korean-ksc5601 39) "_") |
682 |
(modify-syntax-entry (make-char 'korean-ksc5601 40) "_") |
;; (modify-syntax-entry (make-char 'korean-ksc5601 40) "_") |
683 |
(modify-syntax-entry (make-char 'korean-ksc5601 41) "_") |
;; (modify-syntax-entry (make-char 'korean-ksc5601 41) "_") |
684 |
|
|
685 |
(modify-category-entry (make-char 'korean-ksc5601) ?h) |
;; (modify-category-entry (make-char 'korean-ksc5601) ?h) |
686 |
(modify-category-entry (make-char 'korean-ksc5601 35) ?A) |
;; (modify-category-entry (make-char 'korean-ksc5601 35) ?A) |
687 |
(modify-category-entry (make-char 'korean-ksc5601 37) ?G) |
;; (modify-category-entry (make-char 'korean-ksc5601 37) ?G) |
688 |
(modify-category-entry (make-char 'korean-ksc5601 42) ?H) |
;; (modify-category-entry (make-char 'korean-ksc5601 42) ?H) |
689 |
(modify-category-entry (make-char 'korean-ksc5601 43) ?K) |
;; (modify-category-entry (make-char 'korean-ksc5601 43) ?K) |
690 |
(modify-category-entry (make-char 'korean-ksc5601 44) ?Y) |
;; (modify-category-entry (make-char 'korean-ksc5601 44) ?Y) |
691 |
|
|
692 |
;; Latin character set (latin-1,2,3,4,5,8,9) |
;; Latin character set (latin-1,2,3,4,5,8,9) |
693 |
|
|
694 |
(modify-category-entry (make-char 'latin-iso8859-1) ?l) |
;; (modify-category-entry (make-char 'latin-iso8859-1) ?l) |
695 |
(modify-category-entry (make-char 'latin-iso8859-2) ?l) |
;; (modify-category-entry (make-char 'latin-iso8859-2) ?l) |
696 |
(modify-category-entry (make-char 'latin-iso8859-3) ?l) |
;; (modify-category-entry (make-char 'latin-iso8859-3) ?l) |
697 |
(modify-category-entry (make-char 'latin-iso8859-4) ?l) |
;; (modify-category-entry (make-char 'latin-iso8859-4) ?l) |
698 |
(modify-category-entry (make-char 'latin-iso8859-9) ?l) |
;; (modify-category-entry (make-char 'latin-iso8859-9) ?l) |
699 |
(modify-category-entry (make-char 'latin-iso8859-14) ?l) |
;; (modify-category-entry (make-char 'latin-iso8859-14) ?l) |
700 |
(modify-category-entry (make-char 'latin-iso8859-15) ?l) |
;; (modify-category-entry (make-char 'latin-iso8859-15) ?l) |
701 |
|
|
702 |
(modify-category-entry (make-char 'latin-iso8859-1 160) ?\ ) |
;; (modify-category-entry (make-char 'latin-iso8859-1 160) ?\ ) |
703 |
(modify-category-entry (make-char 'latin-iso8859-2 160) ?\ ) |
;; (modify-category-entry (make-char 'latin-iso8859-2 160) ?\ ) |
704 |
(modify-category-entry (make-char 'latin-iso8859-3 160) ?\ ) |
;; (modify-category-entry (make-char 'latin-iso8859-3 160) ?\ ) |
705 |
(modify-category-entry (make-char 'latin-iso8859-4 160) ?\ ) |
;; (modify-category-entry (make-char 'latin-iso8859-4 160) ?\ ) |
706 |
(modify-category-entry (make-char 'latin-iso8859-9 160) ?\ ) |
;; (modify-category-entry (make-char 'latin-iso8859-9 160) ?\ ) |
707 |
(modify-category-entry (make-char 'latin-iso8859-14 160) ?\ ) |
;; (modify-category-entry (make-char 'latin-iso8859-14 160) ?\ ) |
708 |
(modify-category-entry (make-char 'latin-iso8859-15 160) ?\ ) |
;; (modify-category-entry (make-char 'latin-iso8859-15 160) ?\ ) |
709 |
|
|
710 |
;; Lao character set |
;; Lao character set |
711 |
|
|
712 |
(modify-category-entry (make-char 'lao) ?o) |
;; (modify-category-entry (make-char 'lao) ?o) |
713 |
(dotimes (i (1+ (- #xeff #xe80))) |
(dotimes (i (1+ (- #xeff #xe80))) |
714 |
(modify-category-entry (decode-char 'ucs (+ i #xe80)) ?o)) |
(modify-category-entry (decode-char 'ucs (+ i #xe80)) ?o)) |
715 |
|
|
756 |
|
|
757 |
;; Thai character set (TIS620) |
;; Thai character set (TIS620) |
758 |
|
|
759 |
(modify-category-entry (make-char 'thai-tis620) ?t) |
;; (modify-category-entry (make-char 'thai-tis620) ?t) |
760 |
(dotimes (i (1+ (- #xe7f #xe00))) |
(dotimes (i (1+ (- #xe7f #xe00))) |
761 |
(modify-category-entry (decode-char 'ucs (+ i #xe00)) ?t)) |
(modify-category-entry (decode-char 'ucs (+ i #xe00)) ?t)) |
762 |
|
|
801 |
|
|
802 |
;; Tibetan character set |
;; Tibetan character set |
803 |
|
|
804 |
(modify-category-entry (make-char 'tibetan) ?q) |
;; (modify-category-entry (make-char 'tibetan) ?q) |
805 |
(modify-category-entry (make-char 'tibetan-1-column) ?q) |
;; (modify-category-entry (make-char 'tibetan-1-column) ?q) |
806 |
(dotimes (i (1+ (- #xfff #xf00))) |
(dotimes (i (1+ (- #xfff #xf00))) |
807 |
(modify-category-entry (decode-char 'ucs (+ i #xf00)) ?q)) |
(modify-category-entry (decode-char 'ucs (+ i #xf00)) ?q)) |
808 |
|
|
858 |
|
|
859 |
;; Vietnamese character set |
;; Vietnamese character set |
860 |
|
|
861 |
(let ((lower (make-char 'vietnamese-viscii-lower)) |
;; (let ((lower (make-char 'vietnamese-viscii-lower)) |
862 |
(upper (make-char 'vietnamese-viscii-upper))) |
;; (upper (make-char 'vietnamese-viscii-upper))) |
863 |
;; (modify-syntax-entry lower "w") |
;; (modify-syntax-entry lower "w") |
864 |
;; (modify-syntax-entry upper "w") |
;; (modify-syntax-entry upper "w") |
865 |
(modify-category-entry lower ?v) |
;; (modify-category-entry lower ?v) |
866 |
(modify-category-entry upper ?v) |
;; (modify-category-entry upper ?v) |
867 |
(modify-category-entry lower ?l) ; To make a word with |
;; (modify-category-entry lower ?l) ; To make a word with |
868 |
(modify-category-entry upper ?l) ; latin characters. |
;; (modify-category-entry upper ?l) ; latin characters. |
869 |
) |
;; ) |
870 |
|
|
871 |
(let ((tbl (standard-case-table)) |
(let ((tbl (standard-case-table)) |
872 |
(i 32)) |
(i 32)) |
873 |
(while (< i 128) |
(while (< i 128) |
874 |
(set-case-syntax-pair (make-char 'vietnamese-viscii-upper i) |
(let ((char (decode-char 'vietnamese-viscii-upper i))) |
875 |
(make-char 'vietnamese-viscii-lower i) |
(if char |
876 |
tbl) |
(set-case-syntax-pair char (decode-char 'vietnamese-viscii-lower i) |
877 |
|
tbl))) |
878 |
(setq i (1+ i)))) |
(setq i (1+ i)))) |
879 |
|
|
880 |
;; Unicode (mule-unicode-0100-24ff) |
;; Unicode (mule-unicode-0100-24ff) |
1210 |
(vietnamese-viscii-upper . vietnamese-viscii) |
(vietnamese-viscii-upper . vietnamese-viscii) |
1211 |
(arabic-digit . iso-2022-7bit) |
(arabic-digit . iso-2022-7bit) |
1212 |
(arabic-1-column . iso-2022-7bit) |
(arabic-1-column . iso-2022-7bit) |
|
(ascii-right-to-left . iso-2022-7bit) |
|
1213 |
(lao . lao) |
(lao . lao) |
1214 |
(arabic-2-column . iso-2022-7bit) |
(arabic-2-column . iso-2022-7bit) |
1215 |
(indian-is13194 . devanagari) |
(indian-is13194 . devanagari) |
1237 |
japanese-jisx0208 japanese-jisx0212 |
japanese-jisx0208 japanese-jisx0212 |
1238 |
chinese-gb2312 chinese-big5-1 chinese-big5-2))) |
chinese-gb2312 chinese-big5-1 chinese-big5-2))) |
1239 |
(while l |
(while l |
1240 |
(aset auto-fill-chars (make-char (car l)) t) |
;;(aset auto-fill-chars (make-char (car l)) t) |
1241 |
(put-charset-property (car l) 'nospace-between-words t) |
(put-charset-property (car l) 'nospace-between-words t) |
1242 |
(setq l (cdr l)))) |
(setq l (cdr l)))) |
1243 |
|
|
1244 |
|
|
1245 |
|
(set-char-table-range printable-chars '(0 . 31) nil) |
1246 |
|
(set-char-table-range printable-chars '(127 . 159) nil) |
1247 |
|
|
1248 |
|
|
1249 |
;;; Local Variables: |
;;; Local Variables: |
1250 |
;;; coding: iso-2022-7bit |
;;; coding: iso-2022-7bit |