From: Kenichi Handa <handa@m17n.org>
Date: Mon, 7 Jan 2008 12:38:30 +0000 (+0000)
Subject: Set font-shape-text for all Indic characters
X-Git-Tag: emacs-pretest-23.0.90~8295^2~50
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9b87bff02e9be33621300193878c4029f617cd5a;p=emacs.git

Set font-shape-text for all Indic characters
in composition-function-table.
---

diff --git a/lisp/language/indian.el b/lisp/language/indian.el
index 6e15474ac9d..a20be73912c 100644
--- a/lisp/language/indian.el
+++ b/lisp/language/indian.el
@@ -159,6 +159,26 @@ The default value is `devanagari'.")
   (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