From: ntakahas <ntakahas>
Date: Mon, 23 Apr 2007 10:58:30 +0000 (+0000)
Subject: BS deletes repaya first rather than the base consonant.
X-Git-Tag: REL-1-4-0~108
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a3bad9ba28cb6cc8a52926bdf930f1440264b828;p=m17n%2Fm17n-db.git

BS deletes repaya first rather than the base consonant.
---

diff --git a/si-wijesekera.mim b/si-wijesekera.mim
index b94fa94..a927553 100644
--- a/si-wijesekera.mim
+++ b/si-wijesekera.mim
@@ -351,7 +351,12 @@ This input method requires surrounding text support.
      0x0D94)
 
     ((& (>= c 0x0D9A) (<= c 0x0DC6) (= @-2 0x0DCA) (= @-1 0x200D))
-     (delete @-2))
+     (cond
+      ((= @-3 0x0DBB)
+       (delete @-3)
+       (insert c))
+      (1
+       (delete @-2))))
 
     ((= c 0x0DD9)
      (cond
@@ -384,6 +389,11 @@ This input method requires surrounding text support.
        (delete @-1)
        0x200C
        0x0DD9)
+      ((& (= @-4 0x0DBB) (= @-3 0x0DCA) (= @-2 0x200D))
+       (set c1 @-1)
+       (delete @-4)
+       (insert c1)
+       0x0DD9)
       ((& (>= @-4 0x0D9A) (<= @-4 0x0DC6) (= @-3 0x0DCA) (= @-2 0x200D))
        (delete @-3)
        0x0DD9)
@@ -402,6 +412,11 @@ This input method requires surrounding text support.
        (delete @-1)
        0x200C
        0x0DDB)
+      ((& (= @-4 0x0DBB) (= @-3 0x0DCA) (= @-2 0x200D))
+       (set c1 @-1)
+       (delete @-4)
+       (insert c1)
+       0x0DDB)
       ((& (>= @-4 0x0D9A) (<= @-4 0x0DC6) (= @-3 0x0DCA) (= @-2 0x200D))
        (delete @-3)
        0x0DDB)