Update copyright year.

[m17n/m17n-db.git] / MIM / cmc-kbd.mim

diff --git a/MIM/cmc-kbd.mim b/MIM/cmc-kbd.mim
index 56b1b1f..c9986ec 100644 (file)
--- 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))))