# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1027656161 0
# Node ID 70b2e9f6d8a8bb85a29a24dce26c5657effb589f
# Parent  1c1bc89022361cb13cb0b963c4b9052c3099aa76
Setup char-script-table.

diff -r 1c1bc8902236 -r 70b2e9f6d8a8 lisp/international/characters.el
--- a/lisp/international/characters.el	Thu Jul 25 11:12:30 2002 +0000
+++ b/lisp/international/characters.el	Fri Jul 26 04:02:41 2002 +0000
@@ -905,6 +905,73 @@
 (optimize-char-table (standard-category-table))
 (optimize-char-table (standard-syntax-table))
 
+(let ((script-list nil))
+  (dolist
+      (elt
+       '((#x0000 #x007F ascii)
+	 (#x00A0 #x036F latin)
+	 (#x0370 #x03E1 greek)
+	 (#x03E2 #x03EF coptic)
+	 (#x03F0 #x03F3 greek)
+	 (#x0400 #x04FF cyrillic)
+	 (#x0530 #x058F armenian)
+	 (#x0590 #x05FF hebrew)
+	 (#x0600 #x06FF arabic)
+	 (#x0700 #x074F syriac)
+	 (#x0780 #x07BF thaana)
+	 (#x0900 #x097F devanagari)
+	 (#x0980 #x09FF bengali)
+	 (#x0A00 #x0A7F gurmukhi)
+	 (#x0A80 #x0AFF gujarati)
+	 (#x0B00 #x0B7F oriya)
+	 (#x0B80 #x0BFF tamil)
+	 (#x0C00 #x0C7F telugu)
+	 (#x0C80 #x0CFF kannada)
+	 (#x0D00 #x0D7F malayalam)
+	 (#x0D80 #x0DFF sinhala)
+	 (#x0E00 #x0E5F thai)
+	 (#x0E80 #x0EDF lao)
+	 (#x0F00 #x0FFF tibetan)
+	 (#x1000 #x105F myanmar)
+	 (#x10A0 #x10FF georgian)
+	 (#x1100 #x11FF hangul)
+	 (#x1200 #x137F ethiopic)
+	 (#x13A0 #x13FF cherokee)
+	 (#x1400 #x167F canadian-aboriginal)
+	 (#x1680 #x169F ogham)
+	 (#x16A0 #x16FF runic)
+	 (#x1780 #x17FF khmer)
+	 (#x1800 #x18AF mongolian)
+	 (#x1E00 #x1EFF latin)
+	 (#x1F00 #x1FFF greek)
+	 (#x20000 #x2AFFF han)
+	 (#x20A0 #x20AF currency)
+	 (#x2800 #x28FF braille)
+	 (#x2E80 #x2FDF han)
+	 (#x2FF0 #x2FFF ideographic-description)
+	 (#x3000 #x303F cjk-misc)
+	 (#x3040 #x30FF kana)
+	 (#x3100 #x312F bopomofo)
+	 (#x3130 #x318F hangul)
+	 (#x3190 #x319F kanbun)
+	 (#x31A0 #x31BF bopomofo)
+	 (#x3400 #x9FAF han)
+	 (#xA000 #xA4CF yi)
+	 (#xAC00 #xD7AF hangul)
+	 (#xF900 #xFA5F han)
+	 (#xFB1D #xFB4F hebrew)
+	 (#xFB50 #xFDFF arabic)
+	 (#xFE70 #xFEFC arabic)
+	 (#xFF00 #xFF5F cjk-misc)
+	 (#xFF61 #xFF9F kana)
+	 (#xFFE0 #xFFE6 cjk-misc)
+	 (#x2F800 #x2FFFF han)))
+    (set-char-table-range char-script-table
+			  (cons (car elt) (nth 1 elt)) (nth 2 elt))
+    (or (memq (nth 2 elt) script-list)
+	(setq script-list (cons (nth 2 elt) script-list))))
+  (set-char-table-extra-slot char-script-table 0 (nreverse script-list)))
+
 ;;; Local Variables:
 ;;; coding: utf-8-emacs
 ;;; End: