特定のキーを押下することで、カーソル前の文字を切り替えたい

Question

実現したいこと

Vim のスクリプトに関する質問です。
現在、下記の様に、特定のキーを押すと、カーソルより一つ前の文字が切り替わるプラグインを作成しています。
(下記例では、「A」を押下することで、A->B->C->D->E->A->B->...と、切り替わります。)

現状、シングルバイト->シングルバイト、マルチバイト->マルチバイトの切り替えはうまく動いているのですが、
カーソルが行末(or 行末より一つ前) にある時においてのみ、マルチバイト->シングルバイトの切り替えが
うまくいきません。(下記の様にカーソルの位置がずれてしまいます。)

これをどんな場合でも、連続した切り替えを成功させる方法をご教示いただけないでしょうか。

試したこと

問題の切り分けを行った結果、行末のマルチバイト文字の後ろにカーソルがある場合、
col('.')の値が以下の例の様になることがわかりました。

例)
| = インサートモードにおけるカーソル位置

Aあ|AA の場合 col('.')=> 4
Aあ|A の場合 col('.')=> 3
Aあ| の場合 col('.')=> 2
※文字コードを utf-8 なので、日本語一文字が 3byte になっています。

該当のソースコード

"マッピングするためのメイン関数"
function! SwitchChar(switch_list,key)
    "引数が辞書型以外の場合に却下"
    if type(a:switch_list) != type([])
        finish "Argument requires List type!"
    endif

    let cnt_chr= GetCurrentChar()
    if SearchList(a:switch_list, cnt_chr) < 0
        return a:key
    endif

    call SingleSwitch(cnt_chr, a:switch_list)
    return ''
endfunction


"現在の文字が切り替え対象の文字かをチェック"
function! SearchList(switch_list, chr)
    for item in a:switch_list
        if item ==# a:chr
            return match(a:switch_list, a:chr)
        endif
    endfor
    return -1
endfunction


function! GetCurrentChar()
    if col('.') == 1
        return '\0'
    endif

    return matchstr(strpart(getline('.'), 0, col('.')-1), ".$")
endfunction


function! SingleSwitch(cnt_chr, switch_list)
    let next_chr = a:switch_list[(match(a:switch_list, a:cnt_chr)+1) % len(a:switch_list)]
    let cnt_chr  = a:cnt_chr

    call setline(line("."),
         \ strpart(getline('.'), 0, col('.')-1 -len(cnt_chr)).next_chr.strpart(getline('.'), col('.')-1))
    "↓ここのカーソル位置の調整でおかしくなる"
    call cursor(".", col('.') +(len(next_chr) - len(cnt_chr)))

    return "\<BS>\<BS>"
endfunction


"下記の様にキーと切り替え文字のリストをマッピングして使用する"
inoremap <buffer>A <C-R>=SwitchChar(["A","B","C","D","E"], "A")<CR>
inoremap <buffer>. <C-R>=SwitchChar([".", "…"], ".")<CR>