(adjust-tone): Fix previous change.

[m17n/m17n-contrib.git] / im / tai-sonla.mim

diff --git a/im/tai-sonla.mim b/im/tai-sonla.mim
index 0070d0d..f92925c 100644 (file)
--- 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