(adjust-tone): Fix previous change.
authorhanda <handa>
Thu, 21 Jun 2007 12:15:26 +0000 (12:15 +0000)
committerhanda <handa>
Thu, 21 Jun 2007 12:15:26 +0000 (12:15 +0000)
im/tai-sonla.mim

index 0070d0d..f92925c 100644 (file)
@@ -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