From: ntakahas <ntakahas>
Date: Fri, 21 May 2004 09:09:38 +0000 (+0000)
Subject: Fix shadda+kasra[tan] combination
X-Git-Tag: REL-1-1-0~121
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=37f13b0cb44dbe5900e17b41ea12f0e2f3d52c9b;p=m17n%2Fm17n-db.git

Fix shadda+kasra[tan] combination
---

diff --git a/ARABIC.flt b/ARABIC.flt
index 776eb0a..4fb83d2 100644
--- a/ARABIC.flt
+++ b/ARABIC.flt
@@ -508,32 +508,31 @@
 
  (combining
   (cond
+   ((0x0651 0x0650) tc+bc 0x064E tc+bc 0x0651) ; shadda + kasra
+   ((0x0651 0x064D) tc+bc 0x064B tc+bc 0x0651) ; shadda + kasratan
    ((range 0x0610 0x0615) tc+bc =)
    ((0x064B) tc+bc =)
    ((0x064C) tc+bc =)
-   ((0x064D) bc-15tc =)
+   ((0x064D) bc-tc =)
    ((0x064E) tc+bc =)
    ((0x064F) tc+bc =)
-   ((0x0650) bc-15tc =)
-   ((0x0651) tc+bc =)
-   ((0x0652) tc+bc =)
-   ((0x0653) tc+bc =)
-   ((0x0654) tc+bc =)
-   ((0x0655) bc-15tc =)
-   ((0x0656) bc-15tc =)
+   ((0x0650) bc-tc =)
+   ((range 0x0651 0x0654) tc+bc =)
+   ((0x0655) bc-tc =)
+   ((0x0656) bc-tc =)
    ((0x0657) tc+bc =)
    ((0x0658) tc+bc =)
    ((0x0670) tc+bc =)
    ((range 0x06D6 0x06DC) tc+bc =)
    ((range 0x06DF 0x06E2) tc+bc =)
-   ((0x06E3) bc-15tc =)
+   ((0x06E3) bc-tc =)
    ((0x06E4) tc+bc =)
    ((0x06E7) tc+bc =)
    ((0x06E8) tc+bc =)
-   ((0x06EA) bc-15tc =)
+   ((0x06EA) bc-tc =)
    ((0x06EB) tc+bc =)
    ((0x06EC) tc+bc =)
-   ((0x06ED) bc-15tc =)
+   ((0x06ED) bc-tc =)
    ((0x200C)	=)
    ((0x200D)	=)
    ))