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

IDE: identifier completion: adding := : checks if there is already a :=

Browse Source 
git-svn-id: trunk@12376 -
This commit is contained in:
mattias 2007-10-08 10:24:02 +00:00
parent cfa90e6bd1
commit 97e18a00f6
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

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