anchor.diff:                          let ss = r |> Array.map (fun x -> SnapshotSpan.OfRange(snapshot, x))
                           triggerUpdate ss
                       with
  -                        | :? ArgumentOutOfRangeException -> ()
  +                        | :? ArgumentOutOfRangeException ->
  +                            Logging.logInfo "ArgumentOutOfRangeException in Outlining.Tagger.doUpdate"
  +                            ()
                    | None -> ()
               })
   
  
positive.code: open System.Threading
  open System.Diagnostics
  
  let [<Literal>] UpdateDelay = 200us
  let [<Literal>] MaxTooltipLines = 25
  
  let visitBinding (b: SynBinding) =
      let r1 = b.RangeOfBindingSansRhs
  
negative.code:                     0,
                      buffer.CurrentSnapshot.Length - 1)))
  
      let createTagSpan (snapshotSpan: SnapshotSpan) =
          try
              let snapshot = snapshotSpan.Snapshot
              let firstLine = snapshot.GetLineFromPosition(snapshotSpan.Start.Position)
              let mutable lastLine = snapshot.GetLineFromPosition(snapshotSpan.End.Position)
  
              let nHintLines = lastLine.LineNumber - firstLine.LineNumber + 1
              if nHintLines > MaxTooltipLines then
                  lastLine <- snapshot.GetLineFromLineNumber(firstLine.LineNumber + MaxTooltipLines - 1)
  
              let missingLinesCount = Math.Max(nHintLines - MaxTooltipLines, 0)
              let hintSnapshotSpan = SnapshotSpan(firstLine.Start, lastLine.End)
  
              TagSpan(
                  snapshotSpan,
                  { new IOutliningRegionTag with
                      member __.CollapsedForm      = "..." :> obj
                      member __.IsDefaultCollapsed = false
                      member __.IsImplementation   = false
                      member __.CollapsedHintForm  =
                          let text = hintSnapshotSpan.GetText()
                          match missingLinesCount with
                          | 0 -> text :> obj
                          | n -> sprintf "%s\n...\n\n +%d lines" text n :> obj
                      })
          with
              | :? ArgumentOutOfRangeException ->
                  Logging.logInfo "ArgumentOutOfRangeException in Outlining.Tagger.createTagSpan"
                  null
  
      let getTags (nssc: NormalizedSnapshotSpanCollection) =
          if Seq.isEmpty nssc || Array.isEmpty snapshotSpans then Seq.empty
  