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

codetools: identifier completion: fixed ilcfNeedsDo when as is next token, bug #30703

Browse Source 
git-svn-id: trunk@53115 -
This commit is contained in:
mattias 2016-10-14 18:11:56 +00:00
parent 261d36c0b3
commit 2e697531df
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/identcompletiontool.pas
View File

@ -2846,6 +2846,7 @@ begin
// check missing 'do' after 'with'
if CurrentIdentifierList.StartUpAtomInFrontIs('WITH')
and (not CurrentIdentifierList.StartUpAtomBehindIs('DO'))
and (not CurrentIdentifierList.StartUpAtomBehindIs('AS'))
and (CurrentIdentifierList.StartBracketLvl=0)
and (not (CurrentIdentifierList.StartAtomBehind.Flag in
[cafComma,cafPoint,cafRoundBracketOpen,cafEdgedBracketOpen]))