From 8a580fd8baab6f0408ee793693efb6ba077f73e9 Mon Sep 17 00:00:00 2001
From: ntakahas <ntakahas>
Date: Fri, 23 Mar 2007 12:09:18 +0000
Subject: [PATCH] Adjust to new semantics of @-1, @-2, etc.

---
 si-wijesekera.mim |    8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/si-wijesekera.mim b/si-wijesekera.mim
index d022c1b..b94fa94 100644
--- a/si-wijesekera.mim
+++ b/si-wijesekera.mim
@@ -530,39 +530,43 @@ This input method requires surrounding text support.
 (state
  (init
   (consonant
+   (move @<)
    (cond
     ((= @-1 0x0DD9)
      (cond
       ((= @-2 0x200C)
        (delete @-2)
+       (move @>)
        0x0DD9)
       ((| (< @-2 0x0D9A) (> @-2 0x0DC6))
        (delete @-1)
+       (move @>)
        0x0DD9)))
     ((= @-1 0x0DDB)
      (cond
       ((= @-2 0x200C)
        (delete @-2)
+       (move @>)
        0x0DDB)
       ((| (< @-2 0x0D9A) (> @-2 0x0DC6))
        (delete @-1)
+       (move @>)
        0x0DDB)))))
   (misc))
 
  (join
   (consonant
+   (move @<)
    (set c @-1)
    (cond
     ((| (= c 0x0DD9) (= c 0x0DDB))
      (cond
       ((& (>= @-2 0x0D9A) (<= @-2 0x0DC6))
        (delete @-1)
-       (move @<)
        0x0DCA 0x200D
        (move @>)
        (insert c))))
     ((& (>= c 0x0D9A) (<= c 0x0DC6))
-     (move @<)
      0x0DCA 0x200D))
    (shift init))
 
-- 
1.7.10.4