From 59086955dd856feb57775929f21388f10daf6743 Mon Sep 17 00:00:00 2001 From: handa Date: Wed, 21 Oct 2009 07:48:03 +0000 Subject: [PATCH] *** empty log message *** --- MIM/cmc-kbd.mim | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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)))) -- 1.7.10.4