paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 03:37:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Simplify code in GetIdentCompletionValue a little.

Browse Source
This commit is contained in:
Juha 2021-09-27 20:51:47 +03:00
parent f67149d196
commit 2a179b8402
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/sourceeditprocs.pas
View File

@ -974,12 +974,9 @@ begin
or ((ilcfStartInStatement in IdentList.ContextFlags) and (Dsc=ctnProcedure))
then begin
Result+=';';
if (CursorToLeft=0) and (Dsc=ctnProcedure) and (not IdentItem.IsFunction) then
begin
// a procedure call without parameters => put cursor behind semicolon
end else begin
if (CursorToLeft>0) or (Dsc<>ctnProcedure) or IdentItem.IsFunction then
inc(CursorToLeft); // keep cursor in front of semicolon
end;
// otherwise a procedure call without parameters, cursor stays behind semicolon
end;
end;