From: handa <handa>
Date: Thu, 21 Jun 2007 12:15:26 +0000 (+0000)
Subject: (adjust-tone): Fix previous change.
X-Git-Tag: REL-1-1-2~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6a698ef4b8fd3ddfbe1f27484c2a2cbd18c0f0d5;p=m17n%2Fm17n-contrib.git

(adjust-tone): Fix previous change.
---

diff --git a/im/tai-sonla.mim b/im/tai-sonla.mim
index 0070d0d..f92925c 100644
--- a/im/tai-sonla.mim
+++ b/im/tai-sonla.mim
@@ -52,10 +52,10 @@ You can type special symbols by these keys:
   (set TT @-1)
   (delete @-)
   (cond ((| (= T ?ꫀ) (= T ?ꫂ)) (delete @-) (move @>))
-	((> T 0) (move M) (delete @-) (move @>)))
+	((> T 0) (move M) (delete @+) (move @>)))
   (set T TT)
   (cond ((| (= T ?ꫀ) (= T ?ꫂ)) (insert T))
-	((> T 0) (move M) (insert T) (mark M) (move @>)))))
+	((> T 0) (move M) (insert T) (move @>)))))
 
 (map
  (consonant