paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 16:39:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: break code completion after assignment on keywords. Issue #29448

Browse Source 
git-svn-id: trunk@51394 -
This commit is contained in:
ondrej 2016-01-23 19:35:43 +00:00
parent dfcb38ee6a
commit 100684af05
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/codetools/codecompletiontool.pas
View File

@ -9346,7 +9346,7 @@ function TCodeCompletionCodeTool.CompleteCode(CursorPos: TCodeXYPosition;
var
OldCodePos: TCodePosition;
begin
// Search only within the current instruction - stop on semicolon or else
// Search only within the current instruction - stop on semicolon or keywords
// (else isn't prepended by a semicolon in contrast to other keywords).
Result := False;
@ -9373,8 +9373,13 @@ function TCodeCompletionCodeTool.CompleteCode(CursorPos: TCodeXYPosition;
FCompletingCursorNode:=nil;
end;
end;
cafWord:
if UpAtomIs('ELSE') then // stop on else
cafWord: // stop on keywords
if UpAtomIs('BEGIN') or UpAtomIs('END')
or UpAtomIs('TRY') or UpAtomIs('FINALLY') or UpAtomIs('EXCEPT')
or UpAtomIs('FOR') or UpAtomIs('TO') or UpAtomIs('DO')
or UpAtomIs('REPEAT') or UpAtomIs('UNTIL') or UpAtomIs('WHILE')
or UpAtomIs('IF') or UpAtomIs('THEN') or UpAtomIs('CASE') or UpAtomIs('ELSE')
then
break;
cafSemicolon:
break; // stop on semicolon