Fix shadda+kasra[tan] combination

diff --git a/ARABIC.flt b/ARABIC.flt
index 776eb0a..4fb83d2 100644 (file)
--- 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)   =)
    ))