anchor.diff:      ([<Import(typeof<SVsServiceProvider>)>] serviceProvider: System.IServiceProvider,
        editorFactory: IVsEditorAdaptersFactoryService) =
     
  -    let addCommandFilter (viewAdapter: IVsTextView) (commandFilter: NoPeekDefinitionFilter) =
  +    let addCommandFilter (viewAdapter: IVsTextView) (commandFilter: IMenuCommand) =
           if not commandFilter.IsAdded then
               match viewAdapter.AddCommandFilter(commandFilter) with
               | VSConstants.S_OK, next ->
  
positive.code:                  || nCmdId = uint32 VSConstants.VSStd12CmdID.PeekNavigateForward) then
                  int Constants.OLECMDERR_E_NOTSUPPORTED
              else
                  x.NextTarget.Exec(&pguidCmdGroup, nCmdId, nCmdexecopt, pvaIn, pvaOut)
  
          member x.QueryStatus (pguidCmdGroup, cCmds, prgCmds, pCmdText) =
  
negative.code:                 prgCmds.[0].cmdf <- uint32 (OLECMDF.OLECMDF_SUPPORTED ||| OLECMDF.OLECMDF_INVISIBLE)
                  VSConstants.S_OK
              else
                  let x = x :> IMenuCommand
                  x.NextTarget.QueryStatus(&pguidCmdGroup, cCmds, prgCmds, pCmdText)
  
  type AlwaysPeekDefinitionFilter() =
      interface IMenuCommand with
          member val IsAdded = false with get, set
          member val NextTarget = null with get, set
  
          member x.Exec (pguidCmdGroup, nCmdId, nCmdexecopt, pvaIn, pvaOut) =
              let x = x :> IMenuCommand
              x.NextTarget.Exec(&pguidCmdGroup, nCmdId, nCmdexecopt, pvaIn, pvaOut)
  
          member x.QueryStatus (pguidCmdGroup, cCmds, prgCmds, pCmdText) =
              if pguidCmdGroup = VSConstants.VsStd12 && 
                  prgCmds |> Seq.exists (fun x -> 
                                 x.cmdID = uint32 VSConstants.VSStd12CmdID.PeekDefinition
                              || x.cmdID = uint32 VSConstants.VSStd12CmdID.PeekNavigateBackward
                              || x.cmdID = uint32 VSConstants.VSStd12CmdID.PeekNavigateForward) then
                  prgCmds.[0].cmdf <- uint32 (OLECMDF.OLECMDF_SUPPORTED ||| OLECMDF.OLECMDF_ENABLED)
                  VSConstants.S_OK
              else
                  let x = x :> IMenuCommand
                  x.NextTarget.QueryStatus(&pguidCmdGroup, cCmds, prgCmds, pCmdText)
  
  [<Export(typeof<IVsTextViewCreationListener>)>]
  