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

codetools: fixed CompleteCode TryAssignment loop

Browse Source 
git-svn-id: trunk@56041 -
This commit is contained in:
mattias 2017-10-13 11:00:08 +00:00
parent eb93f4654b
commit ec271131d1
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

@ -9500,12 +9500,12 @@ function TCodeCompletionCodeTool.CompleteCode(CursorPos: TCodeXYPosition;
var
OldCodePos: TCodePosition;
begin
// Search only within the current instruction - stop on semicolon or keywords
// Search only within the current statement - stop on semicolon or keywords
// (else isn't prepended by a semicolon in contrast to other keywords).
Result := False;
MoveCursorToCleanPos(CleanCursorPos);
while CurPos.StartPos > 0 do
MoveCursorToNearestAtom(CleanCursorPos);
while CurPos.StartPos > 1 do
begin
ReadPriorAtom;
case CurPos.Flag of