X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=MIM%2Fcmc-kbd.mim;h=c9986ec627e8db8defe1d69f47bbba1e291238ce;hb=fc30b7226bfbc3a1aedd9e6443f5a9b6197a4c78;hp=56b1b1f0a09c6966d0795ccc7d2856ccc251c7bd;hpb=09ee9dbeed328eeee7a790f9d0d73e5c40843f14;p=m17n%2Fm17n-db.git

diff --git a/MIM/cmc-kbd.mim b/MIM/cmc-kbd.mim
index 56b1b1f..c9986ec 100644
--- a/MIM/cmc-kbd.mim
+++ b/MIM/cmc-kbd.mim
@@ -1,5 +1,5 @@
 ;; cmc-kdb.mim -- Cham input method based on Cham keyboard
-;; Copyright (C) 2008
+;; Copyright (C) 2008, 2009
 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
 ;;   Registration Number H15PRO112
 
@@ -21,7 +21,7 @@
 ;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
 ;; Boston, MA 02110-1301, USA.
 
-(input-method cmc kbd)
+(input-method cmc kbd (version "1.6.0"))
 
 (description (_"Cham input method simulating Cham keyboard.
 Cham characters are encoded in logical order in memory and in files.
@@ -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))))