From bcc15552ae673a5a3fdccc16877f5203b23e77e9 Mon Sep 17 00:00:00 2001 From: handa Date: Sun, 25 May 2008 02:13:19 +0000 Subject: [PATCH] (after-v, after-vc): Call handle-mark after backspace. --- MIM/vi-telex.mim | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/MIM/vi-telex.mim b/MIM/vi-telex.mim index fac52e5..77089ab 100644 --- a/MIM/vi-telex.mim +++ b/MIM/vi-telex.mim @@ -122,9 +122,11 @@ If the value is 1, Backspace key undoes the previous key (consonant-or-tone-mark (delete @-) (pushback 1) (shift after-t)) (backspace (delete @-) (cond (V-3 (set V-1 V-2) (set V-2 V-3) (set V-3 0) - (cond ((> TPLACE 2) (set SELECT 0)))) + (cond ((> TPLACE 2) (set SELECT 0))) + (handle-mark)) (V-2 (set V-1 V-2) (set V-2 0) - (cond ((> TPLACE 1) (set SELECT 0)))) + (cond ((> TPLACE 1) (set SELECT 0))) + (handle-mark)) (1 (shift init))))) ;; The state shifted to when a consonant is typed after a vowel. @@ -135,6 +137,7 @@ If the value is 1, Backspace key undoes the previous key (consonant-or-tone-mark (delete @-) (pushback 1) (shift after-t)) (backspace (delete @-) (sub C-AFTER-V 1) + (handle-mark) (cond ((= C-AFTER-V 0) (shift after-v))))) ;; The state shifted to when a tone-mark is typed. -- 1.7.10.4