# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1199709510 0
# Node ID fc05151881d973dd5d177bfde9388dd75e67049d
# Parent  57348bc42776c4cbfe770c4eb8074a5c317843c0
Set font-shape-text for all Indic characters
in composition-function-table.

diff -r 57348bc42776 -r fc05151881d9 lisp/language/indian.el
--- a/lisp/language/indian.el	Mon Jan 07 12:37:30 2008 +0000
+++ b/lisp/language/indian.el	Mon Jan 07 12:38:30 2008 +0000
@@ -159,6 +159,26 @@
   (make-char-table nil)
   "Char table of regexps for composable Indian character sequence.")
 
+(let ((script-regexp-alist
+       '((devanagari . "[\x900-\x9FF\x200C\x200D]+")
+	 (bengali . "[\x980-\x9FF\x200C\x200D]+")
+	 (gurmukhi . "[\xA00-\xA7F\x200C\x200D]+")
+	 (gujarati . "[\xA80-\xAFF\x200C\x200D]+")
+	 (oriya . "[\xB00-\xB7F\x200C\x200D]+")
+	 (tamil . "[\xB80-\xBFF\x200C\x200D]+")
+	 (telugu . "[\xC00-\xC7F\x200C\x200D]+")
+	 (kannada . "[\xC80-\xCFF\x200C\x200D]+")
+	 (malayalam . "[\xD00-\xD7F\x200C\x200D]+")
+	 (sinhala . "[\xD80-\xDFF\x200C\x200D]+"))))
+  (map-char-table #'(lambda (key val) 
+		      (let ((slot (assq val script-regexp-alist)))
+			(if slot
+			    (set-char-table-range 
+			     composition-function-table key
+			     (list (cons (cdr slot) 'font-shape-text))))))
+		  char-script-table))
+					      
+
 (provide 'indian)
 
 ;;; arch-tag: 83aa8fc7-7ee2-4364-a6e5-498f5e3b8c2f