anchor.diff:                      () :> obj
                   e.on("did-select-next", (fun _ -> handler false) |> unbox<Function>) |> ignore
                   e.on("did-select-previous", (fun _ -> handler true) |> unbox<Function>) |> ignore
  +                e.on("did-cancel",(fun _ -> helptext.fadeOut() |> ignore) |> unbox<Function>) |> ignore
                   emitter <- Some e
               dispatchAutocompleteCommand ()
               isForced <- true) |> unbox<Function>) |> ignore
  
positive.code:     let create () =
          jq(".panes").append helptext |> ignore
          Globals.atom.commands.add("atom-text-editor","fsharp:autocomplete", (fun _ ->
              if emitter.IsNone then
                  let package = Globals.atom.packages.getLoadedPackage("autocomplete-plus") |> unbox<Package>
                  let e = package.mainModule.autocompleteManager.suggestionList.emitter
                  let handler flag =
                      let selected = if flag then (jq "li.selected").prev().find(" span.word-container .word")
                                     else (jq "li.selected").next().find(" span.word-container .word")
  
negative.code:         Globals.atom.workspace.onDidChangeActivePaneItem((fun ed -> initialize ed) |> unbox<Function>  ) |> ignore
  
  
  
          { selector = ".source.fsharp"; disableForSelector = ".source.fsharp .string, .source.fsharp .comment"; inclusionPriority = 1; excludeLowerPriority = true; getSuggestions = getSuggestion}
  