anchor.diff:                              match referenceSourceProvider.TryGetNavigatedUrl symbol with
                               | Some url ->
                                   if fireNavigationEvent then
  -                                    urlChanged |> Option.iter (fun event -> event.Trigger(UrlChangeEventArgs(url)))
                                       currentUrl <- Some url
  +                                    urlChanged |> Option.iter (fun event -> event.Trigger(UrlChangeEventArgs(url)))                                    
                                   Process.Start url |> ignore
                               | None ->
                                   Logging.logWarning "Can't find navigation information for %s." symbol.FullName
  
positive.code:                              |> replaceBlob m)
                              r.StartLine
                      if fireNavigationEvent then
                          urlChanged |> Option.iter (fun event -> event.Trigger(UrlChangeEventArgs(url)))
                          currentUrl <- Some url
                      Process.Start(browserUrl) |> ignore)
              else
                  let statusBar = serviceProvider.GetService<IVsStatusbar, SVsStatusbar>()
  
negative.code:                                 sb.AppendFormat("{0}|", name) |> ignore
                              if not group.IsTotal then
                                  sb.Append("_|") |> ignore
                              sprintf "%s.( %O )" parent sb)
                      | _ ->
                          None)
                  |> Option.flatten
  