From: handa <handa>
Date: Wed, 21 Oct 2009 07:48:03 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: REL-1-6-0~81
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=59086955dd856feb57775929f21388f10daf6743;p=m17n%2Fm17n-db.git

*** empty log message ***
---

diff --git a/MIM/cmc-kbd.mim b/MIM/cmc-kbd.mim
index 56b1b1f..39e519d 100644
--- a/MIM/cmc-kbd.mim
+++ b/MIM/cmc-kbd.mim
@@ -169,11 +169,11 @@ Backspace and Delete also work in the manner of visual order."))
 	 (1 (unhandle))))
 
   ((Delete)
-   (set NEXT @+1)
+   (set NEXT @+0)
    (cond ((& (>= NEXT 0xAA00) (<= NEXT 0xAA28))
-	  (set N2 @+2)
+	  (set N2 @+1)
 	  (cond ((= N2 PM)
-		 (set N3 @+3)
+		 (set N3 @+2)
 		 (cond ((| (= N3 PV1) (= N3 PV2))
 			(delete @+3) (insert NEXT) (insert N2))
 		       (1 (delete @+2) (insert NEXT))))
@@ -204,14 +204,14 @@ Backspace and Delete also work in the manner of visual order."))
 		 (delete @-2) (insert C) (insert PREV))))))
 
   (pre-vowel
-   (set C @-1) (set NEXT @+1)
+   (set C @-1) (set NEXT @+0)
    (cond ((& (>= NEXT 0xAA00) (<= NEXT 0xAA28))
-	  (delete @-1) (delete @+1) (insert NEXT) (insert C) (set NEXT @+1)))
+	  (delete @-1) (delete @+1) (insert NEXT) (insert C) (set NEXT @+0)))
    (cond ((& (>= NEXT 0xAA33) (<= NEXT 0xAA36))
 	  (delete @-1) (delete @+1) (insert NEXT) (insert C))))
 
   (pre-medial
-   (set C @-1) (set NEXT @+1)
+   (set C @-1) (set NEXT @+0)
    (cond ((& (>= NEXT 0xAA00) (<= NEXT 0xAA28))
 	  (delete @-1) (delete @+1) (insert NEXT) (insert C))))