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

codetools: identifier completion: request semicolon even for statement starts

Browse Source 
git-svn-id: trunk@26454 -
This commit is contained in:
mattias 2010-07-04 07:36:30 +00:00
parent 1751469cc8
commit 97ae6679ec
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/identcompletiontool.pas
View File

@ -2120,7 +2120,6 @@ begin
begin
// check if a semicolon is needed at the end
if (not (ilcfNoEndSemicolon in CurrentIdentifierList.ContextFlags))
and (not (ilcfStartOfStatement in CurrentIdentifierList.ContextFlags))
then begin
// check if a semicolon is needed at the end
if (CurPos.Flag in [cafEnd])

5
ide/sourceeditprocs.pas
View File

@ -650,6 +650,7 @@ begin
end;
// add semicolon for statement ends
//debugln(['GetIdentCompletionValue CanAddSemicolon=',CanAddSemicolon,' ilcfNoEndSemicolon=',ilcfNoEndSemicolon in IdentList.ContextFlags,' ']);
if CanAddSemicolon
and (not (ilcfNoEndSemicolon in IdentList.ContextFlags))
then begin
@ -660,8 +661,8 @@ begin
Result:=Result+';';
if (CursorToLeft=0) and (IdentItem.GetDesc=ctnProcedure)
and (not IdentItem.IsFunction) then begin
// a procedure call without paramters
// put cursor behind semicolon
// a procedure call without parameters
// => put cursor behind semicolon
end else begin
// keep cursor in front of semicolon
inc(CursorToLeft);