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

codetools: FindLineEndOrCodeInFrontOfPosition do not skip semicolon by default, bug #16123

Browse Source 
git-svn-id: trunk@24236 -
This commit is contained in:
mattias 2010-03-27 08:08:54 +00:00
parent 7b938aafdc
commit 6bcc6465df
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/customcodetool.pas
View File

@ -2466,7 +2466,7 @@ begin
LinkIndex:=Scanner.LinkIndexAtCleanPos(StartPos); LinkIndex:=Scanner.LinkIndexAtCleanPos(StartPos);
LinkStart:=Scanner.Links[LinkIndex].CleanedPos; LinkStart:=Scanner.Links[LinkIndex].CleanedPos;
Result:=BasicCodeTools.FindLineEndOrCodeInFrontOfPosition(Src, Result:=BasicCodeTools.FindLineEndOrCodeInFrontOfPosition(Src,
StartPos,LinkStart,Scanner.NestedComments,StopAtDirectives); StartPos,LinkStart,Scanner.NestedComments,StopAtDirectives,false);
end; end;
procedure TCustomCodeTool.ClearIgnoreErrorAfter; procedure TCustomCodeTool.ClearIgnoreErrorAfter;