paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 06:18:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

CodeTools: fixed typo in TryFirstLocalIdentOccurence function name

Browse Source 
git-svn-id: trunk@65209 -
This commit is contained in:
maxim 2021-06-10 22:31:48 +00:00
parent cdadfd0cf5
commit d2acf5f8b8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/codecompletiontool.pas
View File

@ -9416,7 +9416,7 @@ function TCodeCompletionCodeTool.CompleteCode(CursorPos: TCodeXYPosition;
end; end;
end; end;
function TryFirstLocalIdentOccurence(CursorNode: TCodeTreeNode; function TryFirstLocalIdentOccurrence(CursorNode: TCodeTreeNode;
OrigCleanCursorPos, CleanCursorPos: Integer): boolean; OrigCleanCursorPos, CleanCursorPos: Integer): boolean;
var var
AtomContextNode, StatementNode: TCodeTreeNode; AtomContextNode, StatementNode: TCodeTreeNode;
@ -9475,7 +9475,7 @@ function TCodeCompletionCodeTool.CompleteCode(CursorPos: TCodeXYPosition;
FCompletingCursorNode:=CursorNode; FCompletingCursorNode:=CursorNode;
try try
if not CleanPosToCodePos(OrigCleanCursorPos,OldCodePos) then if not CleanPosToCodePos(OrigCleanCursorPos,OldCodePos) then
RaiseException(20170421201838,'TCodeCompletionCodeTool.TryFirstLocalIdentOccurence CleanPosToCodePos'); RaiseException(20170421201838,'TCodeCompletionCodeTool.TryFirstLocalIdentOccurrence CleanPosToCodePos');
CompleteCode:=TryCompleteLocalVar(LastCurPos.StartPos,AtomContextNode); CompleteCode:=TryCompleteLocalVar(LastCurPos.StartPos,AtomContextNode);
AdjustCursor(OldCodePos,OldTopLine,NewPos,NewTopLine); AdjustCursor(OldCodePos,OldTopLine,NewPos,NewTopLine);
exit(true); exit(true);
@ -9593,7 +9593,7 @@ begin
{ Find the first occurrence of the (local) identifier at cursor in current { Find the first occurrence of the (local) identifier at cursor in current
procedure body and try again. } procedure body and try again. }
if TryFirstLocalIdentOccurence(CursorNode,OrigCleanCursorPos,CleanCursorPos) then if TryFirstLocalIdentOccurrence(CursorNode,OrigCleanCursorPos,CleanCursorPos) then
exit(true); exit(true);
except except
on E: ECodeToolError do on E: ECodeToolError do