Drop unused parameter from Get_Open_Document

Author: reznikmm

source/ada/lsp-ada_handlers-file_readers.adb

@@ -142,8 +142,7 @@ package body LSP.Ada_Handlers.File_Readers is
 
       Doc := Self.Handler.Get_Open_Document
         (URI   => (VSS.Strings.Conversions.To_Virtual_String (URI)
-                     with null record),
-         Force => False);
+                     with null record));
 
       --  Preprocess the document's contents if open, or the file contents if
       --  not.

source/ada/lsp-ada_handlers-refactor.adb

@@ -116,8 +116,7 @@ package body LSP.Ada_Handlers.Refactor is
                for Problem of Edits.Diagnostics loop
                   Document := Get_Open_Document
                     (Self  => Handler.all,
-                     URI   => Handler.To_URI (Problem.Filename),
-                     Force => False);
+                     URI   => Handler.To_URI (Problem.Filename));
 
                   --  Publish any processed diagnostic when switching to a
                   --  different file.

source/ada/lsp-ada_handlers.adb

@@ -323,8 +323,7 @@ package body LSP.Ada_Handlers is
 
    function Get_Open_Document
      (Self  : in out Message_Handler;
-      URI   : LSP.Structures.DocumentUri;
-      Force : Boolean := False)
+      URI   : LSP.Structures.DocumentUri)
       return LSP.Ada_Documents.Document_Access
    is
       File : constant GNATCOLL.VFS.Virtual_File := Self.To_File (URI);
@@ -334,14 +333,6 @@ package body LSP.Ada_Handlers is
       if Self.Open_Documents.Contains (File) then
          return LSP.Ada_Documents.Document_Access
            (Self.Open_Documents.Element (File));
-      elsif Force then
-         declare
-            Document : constant Internal_Document_Access :=
-              new LSP.Ada_Documents.Document (Self.Tracer);
-         begin
-            Document.Initialize (URI, VSS.Strings.Empty_Virtual_String, null);
-            return LSP.Ada_Documents.Document_Access (Document);
-         end;
       else
          return null;
       end if;

source/ada/lsp-ada_handlers.ads

@@ -94,14 +94,11 @@ package LSP.Ada_Handlers is
    -----------------------------
 
    function Get_Open_Document
-     (Self  : in out Message_Handler;
-      URI   : LSP.Structures.DocumentUri;
-      Force : Boolean := False)
+     (Self : in out Message_Handler;
+      URI  : LSP.Structures.DocumentUri)
       return LSP.Ada_Documents.Document_Access;
    --  Return the open document for the given URI.
-   --  If the document is not opened, then if Force a new document
-   --  will be created and must be freed by the user else null will be
-   --  returned.
+   --  If the document is not opened, then null will be returned.
 
    function Is_Open_Document
      (Self : Message_Handler;