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

Jedi Code Format: Indent try..finally..except blocks better. Issue #39989, patch by Domingo Galmés.

Browse Source
This commit is contained in:
Juha 2022-11-06 23:25:08 +02:00
parent 0ac5d3a4ce
commit 2d95dc76d7
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/jcf2/Process/VisitSetNesting.pas
View File

@ -115,14 +115,26 @@ begin
lcNode := TParseTreeNode(pcNode);
case lcNode.NodeType of
nBlock, nCaseStatement,
nIfBlock, nTryBlock, nFinallyBlock, nExceptBlock,
nRepeatStatement, nWhileStatement, nForStatement,
nWithStatement, nOnExceptionHandler, nInitSection:
nBlock, nCaseStatement, nIfBlock, nRepeatStatement, nWhileStatement,
nForStatement, nWithStatement, nOnExceptionHandler, nInitSection:
begin
leNestType := nlBlock;
lbHasNesting := True;
end;
nTryBlock, nFinallyBlock, nExceptBlock:
begin
//if a=b then
//try
// writeln();
//finally
//end;
// only indent try block if it is in begin end block.
if lcNode.HasParentNode(nCompoundStatement,4) then
begin
leNestType := nlBlock;
lbHasNesting := True;
end;
end;
nElseBlock:
begin
{ if the else is immediately followed by if then it is not a block indent }