diff --git a/src/FsAutoComplete/CodeFixes/AddMissingXmlDocumentation.fs b/src/FsAutoComplete/CodeFixes/AddMissingXmlDocumentation.fs index da58b51f4..7e5c38fa3 100644 --- a/src/FsAutoComplete/CodeFixes/AddMissingXmlDocumentation.fs +++ b/src/FsAutoComplete/CodeFixes/AddMissingXmlDocumentation.fs @@ -14,13 +14,13 @@ let title = "Add missing XML documentation" let private tryGetExistingXmlDoc (pos: FSharp.Compiler.Text.Position) (xmlDoc: PreXmlDoc) = let tryGetSummaryIfContainsPos (xd: PreXmlDoc) = - let d = xd.ToXmlDoc(false, None) + if rangeContainsPos xd.Range pos then + let d = xd.ToXmlDoc(false, None) - if rangeContainsPos d.Range pos then if Array.isEmpty d.UnprocessedLines then None elif d.UnprocessedLines |> Array.exists (fun s -> s.Contains("")) then - Some(d.UnprocessedLines, d.Range) + Some(d.UnprocessedLines, xd.Range) else let lines = match d.UnprocessedLines with @@ -28,7 +28,7 @@ let private tryGetExistingXmlDoc (pos: FSharp.Compiler.Text.Position) (xmlDoc: P | [| c |] -> [| $" %s{c.Trim()}" |] | cs -> [| yield " "; yield! cs; yield " " |] - Some(lines, d.Range) + Some(lines, xd.Range) else None diff --git a/src/FsAutoComplete/CodeFixes/ConvertTripleSlashCommentToXmlTaggedDoc.fs b/src/FsAutoComplete/CodeFixes/ConvertTripleSlashCommentToXmlTaggedDoc.fs index ba46ceb52..4fb056cf7 100644 --- a/src/FsAutoComplete/CodeFixes/ConvertTripleSlashCommentToXmlTaggedDoc.fs +++ b/src/FsAutoComplete/CodeFixes/ConvertTripleSlashCommentToXmlTaggedDoc.fs @@ -14,9 +14,9 @@ let title = "Convert '///' comment to XML-tagged doc comment" let private containsPosAndNotEmptyAndNotElaborated (pos: FSharp.Compiler.Text.Position) (xmlDoc: PreXmlDoc) = let containsPosAndNoSummaryPresent (xd: PreXmlDoc) = - let d = xd.ToXmlDoc(false, None) + if rangeContainsPos xd.Range pos then + let d = xd.ToXmlDoc(false, None) - if rangeContainsPos d.Range pos then let summaryPresent = d.UnprocessedLines |> Array.exists (fun s -> s.Contains(""))