Fix hash completion span

Author: nosami

vsintegration/src/FSharp.Editor/Completion/CompletionService.fs

@@ -51,12 +51,13 @@ type internal FSharpCompletionService
             .WithDismissIfLastCharacterDeleted(true)
             .WithDefaultEnterKeyRule(enterKeyRule)
 
-    ///// Indicates the text span to be replaced by a committed completion list item.
-    //override _.GetDefaultCompletionListSpan(sourceText, caretIndex) =
-    //    let documentId = workspace.GetDocumentIdInCurrentContext(sourceText.Container)
-    //    let document = workspace.CurrentSolution.GetDocument(documentId)
-    //    let defines = projectInfoManager.GetCompilationDefinesForEditingDocument(document)
-    //    CompletionUtils.getDefaultCompletionListSpan(sourceText, caretIndex, documentId, document.FilePath, defines)
+    /// Indicates the text span to be replaced by a committed completion list item.
+    override _.GetDefaultCompletionListSpan(sourceText, caretIndex) =
+        let documentId = workspace.GetDocumentIdInCurrentContext(sourceText.Container)
+        let document = workspace.CurrentSolution.GetDocument(documentId)
+        let defines = projectInfoManager.GetCompilationDefinesForEditingDocument(document)
+        let itemSpan = CompletionUtils.getCompletionItemSpan sourceText caretIndex
+        TextSpan.FromBounds(itemSpan.Start, itemSpan.End)
 
 type internal FSharpCompletionSource
     (textView: ITextView, checkerProvider: FSharpCheckerProvider, projectInfoManager: FSharpProjectOptionsManager, assemblyContentProvider: AssemblyContentProvider) =

vsintegration/src/FSharp.Editor/Completion/CompletionUtils.fs

@@ -35,8 +35,9 @@ module internal CompletionUtils =
         // identifier-start-character:
         //   letter-character
         //   _ (the underscore character U+005F)
-
-        if ch < 'a' then // '\u0061'
+        if ch = '#' then
+            true
+        elif ch < 'a' then // '\u0061'
             if ch < 'A' then // '\u0041'
                 false
             else ch <= 'Z'   // '\u005A'

vsintegration/src/FSharp.Editor/VSMac/InteractivePad.fs

@@ -423,8 +423,9 @@ type InteractiveCommand(command) =
 
     override x.Run() =
         FSharpInteractivePad.Fsi
-        |> Option.iter (fun fsi -> command fsi
-                                   FSharpInteractivePad.BringToFront(false))
+        |> Option.iter (fun fsi ->
+            FSharpInteractivePad.BringToFront(false)
+            command fsi)
 
 type FSharpFileInteractiveCommand(command) =
     inherit InteractiveCommand(command)