# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1259740791 0
# Node ID d869f6255c1978d548e0a29a19f1fb1ae8bde9cc
# Parent  52460c9b040f8e9a090c989c0e5ee7c890453c77
Include ZWJ and ZWNJ in the patterns to shape for all Indic scripts.

diff -r 52460c9b040f -r d869f6255c19 lisp/language/indian.el
--- a/lisp/language/indian.el	Wed Dec 02 04:11:08 2009 +0000
+++ b/lisp/language/indian.el	Wed Dec 02 07:59:51 2009 +0000
@@ -165,15 +165,15 @@
   "Regexp matching a composable sequence of Malayalam characters.")
 
 (let ((script-regexp-alist
-       `((devanagari . ,devanagari-composable-pattern)
+       `((devanagari . "[\x900-\x97F\x200C\x200D]+")
 	 (bengali . "[\x980-\x9FF\x200C\x200D]+")
 	 (gurmukhi . "[\xA00-\xA7F\x200C\x200D]+")
 	 (gujarati . "[\xA80-\xAFF\x200C\x200D]+")
 	 (oriya . "[\xB00-\xB7F\x200C\x200D]+")
-	 (tamil . ,tamil-composable-pattern)
+	 (tamil . "[\xB80-\xBFF\x200C\x200D]+")
 	 (telugu . "[\xC00-\xC7F\x200C\x200D]+")
-	 (kannada . ,kannada-composable-pattern)
-	 (malayalam . ,malayalam-composable-pattern))))
+	 (kannada . "[\xC80-\xCFF\x200C\x200D]+")
+	 (malayalam . "[\xD00-\xD7F\x200C\x200D]+"))))
   (map-char-table
    #'(lambda (key val)
        (let ((slot (assq val script-regexp-alist)))