Add , to repeat find character backwards. Fixes #93

XSVim.Tests/Movement.fs

@@ -107,6 +107,10 @@ module ``Movement tests`` =
     let ``f is repeatable with ;``() =
         assertText " $ a1 a2" "fa;" "  a1 a$2"
 
+    [<Test>]
+    let ``f is reversed with ,``() =
+        assertText " $ a1 a2" "fa;," "  a$1 a2"
+
     [<Test>]
     let ``t does not move if caret is already just before search char``() =
         assertText " $a1 a2" "ta" " $a1 a2"

XSVim/Properties/AddinInfo.fs

@@ -5,7 +5,7 @@ open MonoDevelop
 [<assembly:Addin (
   "XSVim", 
   Namespace = "XSVim",
-  Version = "0.28.3"
+  Version = "0.29.0"
 )>]
 
 [<assembly:AddinName ("Vim")>]

XSVim/XSVim.fs

@@ -976,6 +976,18 @@ module Vim =
             | NotInsertMode, [ "g"; "T" ] -> [ dispatch WindowCommands.PrevDocument ]
             | NotInsertMode, [ "." ] -> state.lastAction @ [ switchMode NormalMode ]
             | NotInsertMode, [ ";" ] -> match state.findCharCommand with Some command -> [ command ] | None -> []
+            | NotInsertMode, [ "," ] ->
+                match state.findCharCommand with
+                | Some command -> 
+                    let findCommand =
+                        match command.textObject with
+                        | ToCharInclusive c -> ToCharInclusiveBackwards c
+                        | ToCharInclusiveBackwards c -> ToCharInclusive c
+                        | ToCharExclusive c -> ToCharExclusiveBackwards c
+                        | ToCharExclusiveBackwards c -> ToCharExclusive c
+                        | _ -> failwith "Invalid find command"
+                    [ { command with textObject=findCommand } ] 
+                | None -> []
             | VisualModes, Movement m -> [ run Move m ]
             | VisualBlockMode, [ "I" ] -> [ run (BlockInsert Before) Nothing ]
             | VisualBlockMode, [ "A" ] -> [ run (BlockInsert After) Nothing ]