Fix CLIEvent IsEvent property and XmlDocSig prefix

Copilot · T-Gro · Copilot · commit fe08ab0cea9a · 2025-05-21T17:27:51.000Z
Co-authored-by: T-Gro &lt;46543583+T-Gro@users.noreply.github.com&gt;
diff --git a/src/Compiler/Symbols/Symbols.fs b/src/Compiler/Symbols/Symbols.fs
@@ -1890,6 +1890,7 @@ type FSharpMemberOrFunctionOrValue(cenv, d:FSharpMemberOrValData, item) =
     member _.IsEvent = 
         match d with 
         | E _ -> true
+        | P p when p.IsFSharpEventProperty -> true  // CLIEvent properties should be considered events
         | _ -> false
 
     member _.EventForFSharpProperty = 
@@ -2072,6 +2073,9 @@ type FSharpMemberOrFunctionOrValue(cenv, d:FSharpMemberOrValData, item) =
         | P p ->
             let range = defaultArg sym.DeclarationLocationOpt range0
             match GetXmlDocSigOfProp cenv.infoReader range p with
+            | Some (_, docsig) when p.IsFSharpEventProperty && docsig.StartsWith("P:") -> 
+                // For CLIEvent properties, use E: prefix instead of P:
+                "E:" + docsig.Substring(2)
             | Some (_, docsig) -> docsig
             | _ -> ""
         | M m | C m -> 
diff --git a/tests/FSharp.Compiler.Service.Tests/Symbols.fs b/tests/FSharp.Compiler.Service.Tests/Symbols.fs
@@ -1311,6 +1311,26 @@ type T() =
             )
 
         Assert.False hasPropertySymbols
+        
+    [<Fact>]
+    let ``CLIEvent is recognized as event`` () =
+        let _, checkResults = getParseAndCheckResults """
+type T() = 
+    [<CLIEvent>]
+    member this.Event = Event<int>().Publish
+"""
+        let symbolUse = 
+            checkResults.GetSymbolUsesAtLocation(4, 21, "    member this.Event = Event<int>().Publish", [ "Event" ])
+            |> List.head
+            
+        match symbolUse.Symbol with
+        | :? FSharpMemberOrFunctionOrValue as mfv ->
+            // CLIEvent properties should be recognized as events
+            Assert.True mfv.IsEvent
+            // Their XmlDocSig should use E: prefix
+            Assert.StartsWith("E:", mfv.XmlDocSig)
+        | _ -> 
+            Assert.True(false, "Expected FSharpMemberOrFunctionOrValue")
 
 module Delegates =
     [<Fact>]
