/[emacs]/emacs/lisp/international/characters.el
ViewVC logotype

Diff of /emacs/lisp/international/characters.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.35.2.12 by fx, Mon Jun 24 18:25:30 2002 UTC revision 1.35.2.13 by handa, Fri Jul 26 04:02:41 2002 UTC
# Line 905  Line 905 
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:

Legend:
Removed from v.1.35.2.12  
changed lines
  Added in v.1.35.2.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26