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

Jedi code format: Fix identation and bug in commit 8035014eaf

Browse Source 
(cherry picked from commit 462eece676)
This commit is contained in:
DomingoGP 2023-10-05 22:27:45 +02:00
parent f0f492df56
commit 540f2470ab
1 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/jcf2/Process/Indent/Indenter.pas
View File

@ -694,20 +694,19 @@ begin
end;
end;
// last comments in var, const,... sections belongs to the next procedure/function.
if (pt.TokenType=ttComment) and pt.HasParentNode([nTypeSection,nVarSection,nConstSection,nUses])
and (pt.NextSolidTokenType in ProcedureWords)
and ( not pt.HasParentNode(ObjectBodies + [nRecordType]))
//not followed by a blank line.
and not HasEmptyLineOrDirectiveAfterComments(pt) then
begin
Result:=0;
if FormattingSettings.Indent.IndentLibraryProcs then
begin
if pt.HasParentNode([nLibrary, nProgram]) and (liIndentCount >= 1) then
Result:=1;
end;
end;
// last comments in var, const,... sections belongs to the next procedure/function.
if (pt.TokenType = ttComment) and pt.HasParentNode([nTypeSection, nVarSection, nConstSection, nUses]) and
(pt.NextSolidTokenType in ProcedureWords) and (not pt.HasParentNode(ObjectBodies + [nRecordType]))
//not followed by a blank line.
and not HasEmptyLineOrDirectiveAfterComments(pt) then
begin
Result := 0;
if FormattingSettings.Indent.IndentLibraryProcs then
begin
if pt.HasParentNode([nLibrary, nProgram]) and (liIndentCount >= 1) then
Result := FormattingSettings.Indent.SpacesForIndentLevel(1);
end;
end;
end;