905 |
(optimize-char-table (standard-category-table)) |
(optimize-char-table (standard-category-table)) |
906 |
(optimize-char-table (standard-syntax-table)) |
(optimize-char-table (standard-syntax-table)) |
907 |
|
|
908 |
|
(let ((script-list nil)) |
909 |
|
(dolist |
910 |
|
(elt |
911 |
|
'((#x0000 #x007F ascii) |
912 |
|
(#x00A0 #x036F latin) |
913 |
|
(#x0370 #x03E1 greek) |
914 |
|
(#x03E2 #x03EF coptic) |
915 |
|
(#x03F0 #x03F3 greek) |
916 |
|
(#x0400 #x04FF cyrillic) |
917 |
|
(#x0530 #x058F armenian) |
918 |
|
(#x0590 #x05FF hebrew) |
919 |
|
(#x0600 #x06FF arabic) |
920 |
|
(#x0700 #x074F syriac) |
921 |
|
(#x0780 #x07BF thaana) |
922 |
|
(#x0900 #x097F devanagari) |
923 |
|
(#x0980 #x09FF bengali) |
924 |
|
(#x0A00 #x0A7F gurmukhi) |
925 |
|
(#x0A80 #x0AFF gujarati) |
926 |
|
(#x0B00 #x0B7F oriya) |
927 |
|
(#x0B80 #x0BFF tamil) |
928 |
|
(#x0C00 #x0C7F telugu) |
929 |
|
(#x0C80 #x0CFF kannada) |
930 |
|
(#x0D00 #x0D7F malayalam) |
931 |
|
(#x0D80 #x0DFF sinhala) |
932 |
|
(#x0E00 #x0E5F thai) |
933 |
|
(#x0E80 #x0EDF lao) |
934 |
|
(#x0F00 #x0FFF tibetan) |
935 |
|
(#x1000 #x105F myanmar) |
936 |
|
(#x10A0 #x10FF georgian) |
937 |
|
(#x1100 #x11FF hangul) |
938 |
|
(#x1200 #x137F ethiopic) |
939 |
|
(#x13A0 #x13FF cherokee) |
940 |
|
(#x1400 #x167F canadian-aboriginal) |
941 |
|
(#x1680 #x169F ogham) |
942 |
|
(#x16A0 #x16FF runic) |
943 |
|
(#x1780 #x17FF khmer) |
944 |
|
(#x1800 #x18AF mongolian) |
945 |
|
(#x1E00 #x1EFF latin) |
946 |
|
(#x1F00 #x1FFF greek) |
947 |
|
(#x20000 #x2AFFF han) |
948 |
|
(#x20A0 #x20AF currency) |
949 |
|
(#x2800 #x28FF braille) |
950 |
|
(#x2E80 #x2FDF han) |
951 |
|
(#x2FF0 #x2FFF ideographic-description) |
952 |
|
(#x3000 #x303F cjk-misc) |
953 |
|
(#x3040 #x30FF kana) |
954 |
|
(#x3100 #x312F bopomofo) |
955 |
|
(#x3130 #x318F hangul) |
956 |
|
(#x3190 #x319F kanbun) |
957 |
|
(#x31A0 #x31BF bopomofo) |
958 |
|
(#x3400 #x9FAF han) |
959 |
|
(#xA000 #xA4CF yi) |
960 |
|
(#xAC00 #xD7AF hangul) |
961 |
|
(#xF900 #xFA5F han) |
962 |
|
(#xFB1D #xFB4F hebrew) |
963 |
|
(#xFB50 #xFDFF arabic) |
964 |
|
(#xFE70 #xFEFC arabic) |
965 |
|
(#xFF00 #xFF5F cjk-misc) |
966 |
|
(#xFF61 #xFF9F kana) |
967 |
|
(#xFFE0 #xFFE6 cjk-misc) |
968 |
|
(#x2F800 #x2FFFF han))) |
969 |
|
(set-char-table-range char-script-table |
970 |
|
(cons (car elt) (nth 1 elt)) (nth 2 elt)) |
971 |
|
(or (memq (nth 2 elt) script-list) |
972 |
|
(setq script-list (cons (nth 2 elt) script-list)))) |
973 |
|
(set-char-table-extra-slot char-script-table 0 (nreverse script-list))) |
974 |
|
|
975 |
;;; Local Variables: |
;;; Local Variables: |
976 |
;;; coding: utf-8-emacs |
;;; coding: utf-8-emacs |
977 |
;;; End: |
;;; End: |