projects
/
m17n
/
m17n-db.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
;; 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
;; 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.
;; 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.
(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)
(1 (unhandle))))
((Delete)
- (set NEXT @+1)
+ (set NEXT @+0)
(cond ((& (>= NEXT 0xAA00) (<= NEXT 0xAA28))
(cond ((& (>= NEXT 0xAA00) (<= NEXT 0xAA28))
- (set N2 @+2)
+ (set N2 @+1)
(cond ((= N2 PM)
(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))))
(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
(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))
(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
(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))))
(cond ((& (>= NEXT 0xAA00) (<= NEXT 0xAA28))
(delete @-1) (delete @+1) (insert NEXT) (insert C))))