From: ntakahas Date: Fri, 23 Mar 2007 07:07:11 +0000 (+0000) Subject: Enable Repaya. X-Git-Tag: REL-1-4-0~132 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7e2d813cfe3b7d57b5e699e757bfabd8313d4995;p=m17n%2Fm17n-db.git Enable Repaya. --- diff --git a/si-wijesekera.mim b/si-wijesekera.mim index cc009dd..c54e295 100644 --- a/si-wijesekera.mim +++ b/si-wijesekera.mim @@ -299,26 +299,26 @@ This input method requires surrounding text support. ((> c 0) (insert c)))) -;; Repaya is disabled. -;; ("~" -;; (set c @-1) -;; (cond -;; ((| (= c 0x0DD9) (= c 0x0DDB)) -;; (delete @-1)) -;; (1 -;; (set c 0))) -;; (backward) -;; (cond -;; ((& (>= @-1 0x0D9A) (<= @-1 0x0DC6)) -;; (set c1 @-1) -;; (delete @-1) -;; (insert c1) -;; (move @<) -;; 0x0DBB 0x0DCA 0x200D)) -;; (cond -;; ((> c 0) -;; (move @>) -;; (insert c)))) + ;; Repaya is disabled. + ("~" + (set c @-1) + (cond + ((| (= c 0x0DD9) (= c 0x0DDB)) + (delete @-1)) + (1 + (set c 0))) + (backward) + (cond + ((& (>= @-1 0x0D9A) (<= @-1 0x0DC6)) + (set c1 @-1) + (delete @-1) + (insert c1) + (move @<) + 0x0DBB 0x0DCA 0x200D)) + (cond + ((> c 0) + (move @>) + (insert c)))) ((BackSpace) (delete-preceding-zw)