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

Jedi Code Format: Do not break line in generic method with "class". Issue #40180, patch by Domingo Galmés.

Browse Source
This commit is contained in:
Juha 2023-03-26 09:00:53 +03:00
parent 29f079e7c1
commit de92d049b6
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/jcf2/Process/Returns/ReturnBefore.pas
View File

@ -304,7 +304,11 @@ begin
if (pt.TokenType = ttClass) and pt.HasParentNode(ProcedureHeadings) and if (pt.TokenType = ttClass) and pt.HasParentNode(ProcedureHeadings) and
(not IsGenericFunctionOrProperty(pt)) and (not IsGenericFunctionOrProperty(pt)) and
(RoundBracketLevel(pt) < 1) then (RoundBracketLevel(pt) < 1) then
exit(True); begin
// 'class' is not a type: procedure DisplayItems<T: class>(TheItems: TEnumerable<T>);
if pt.PriorSolidTokenType<>ttColon then
exit(True);
end;
{ "uses UnitName in 'File'" has a blank line before UnitName } { "uses UnitName in 'File'" has a blank line before UnitName }
if IsIdentifier(pt, idStrict) and (pt.HasParentNode(nUses)) and (ptNext.TokenType = ttIn) then if IsIdentifier(pt, idStrict) and (pt.HasParentNode(nUses)) and (ptNext.TokenType = ttIn) then