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

IDE: ientifier completion: adding semicoon: checks if identifier has childs

Browse Source 
git-svn-id: trunk@12375 -
This commit is contained in:
mattias 2007-10-08 10:20:04 +00:00
parent 923da9556a
commit cfa90e6bd1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/sourceeditprocs.pas
View File

@ -507,7 +507,8 @@ begin
CursorAtEnd:=false;
end;}
if (ilcfStartIsLValue in IdentList.ContextFlags) then begin
if (ilcfStartIsLValue in IdentList.ContextFlags)
and (not IdentItem.HasChilds) then begin
if (atIdentifier in CodeToolsOpts.DoInsertSpaceAfter)
or (atSymbol in CodeToolsOpts.DoInsertSpaceInFront) then
Result:=Result+' ';