diff --git a/XSVim/Properties/AddinInfo.fs b/XSVim/Properties/AddinInfo.fs index 9abe0e3..e28ee5a 100644 --- a/XSVim/Properties/AddinInfo.fs +++ b/XSVim/Properties/AddinInfo.fs @@ -7,7 +7,7 @@ open Mono.Addins.Description [] [] diff --git a/XSVim/XSVim.fs b/XSVim/XSVim.fs index 65b883d..fa3103c 100644 --- a/XSVim/XSVim.fs +++ b/XSVim/XSVim.fs @@ -518,6 +518,7 @@ type XSVim() = let keyList = state.keys let multiplier, keyList = match keyList with + | "r" :: _ -> 1, keyList // d2w -> 2, dw | c :: OneToNine d1 :: Digit d2 :: Digit d3 :: Digit d4 :: t -> d1 * 1000 + d2 * 100 + d3 * 10 + d4, c::t