From 700131698b3aa3003851f111c7aa4a65c74158b6 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Thu, 7 Jun 2018 15:59:54 +0000
Subject: [PATCH] IDE: clean up

git-svn-id: trunk@58173 -
---
 ide/main.pp | 23 -----------------------
 1 file changed, 23 deletions(-)

diff --git a/ide/main.pp b/ide/main.pp
index c80a884037..5045bcbbf3 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -660,9 +660,6 @@ type
     procedure DoDropFilesAsync(Data: PtrInt);
     procedure RenameInheritedMethods(AnUnitInfo: TUnitInfo; List: TStrings);
     function OIHelpProvider: TAbstractIDEHTMLProvider;
-    procedure IdentifierWordCompletionGetSource(var Source: TStrings;
-      var SourceTopLine,SourceBottomLine: integer;
-      var IgnoreWordEndPos: TPoint; SourceIndex: integer);
     procedure DoAddWordsToIdentCompletion(Sender: TIdentifierList;
       FilteredList: TFPList; PriorityCount: Integer);
     // form editor and designer
@@ -3418,26 +3415,6 @@ begin
             (aCaption,aMsg,DlgType,Buttons,HelpKeyword);
 end;
 
-procedure TMainIDE.IdentifierWordCompletionGetSource(var Source: TStrings;
-  var SourceTopLine, SourceBottomLine: integer; var IgnoreWordEndPos: TPoint;
-  SourceIndex: integer);
-var
-  ActiveSrcEdit: TSourceEditor;
-  ActiveUnitInfo: TUnitInfo;
-const
-  LinesAround = 100;
-begin
-  if SourceIndex<>0 then
-    Exit;
-  GetCurrentUnit(ActiveSrcEdit,ActiveUnitInfo);
-  if ActiveSrcEdit=nil then exit;
-  Source := ActiveSrcEdit.Source;
-  SourceTopLine := Max(0, ActiveSrcEdit.EditorComponent.CaretY-LinesAround);
-  SourceBottomLine := Min(Source.Count-1, ActiveSrcEdit.EditorComponent.CaretY+LinesAround);
-  IgnoreWordEndPos := ActiveSrcEdit.EditorComponent.LogicalCaretXY;
-  Dec(IgnoreWordEndPos.Y); // LogicalCaretXY starts with 1 as top line
-end;
-
 function TMainIDE.IDEQuestionDialogHandler(const aCaption, aMsg: string;
   DlgType: TMsgDlgType; Buttons: array of const; const HelpKeyword: string): Integer;
 begin