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

Jedi Code Format: Respect "Max consecutive blank lines before removal" setting. Issue #39114, patch by Udo Sommer.

Browse Source 
git-svn-id: trunk@65334 -
This commit is contained in:
juha 2021-06-30 22:52:34 +00:00
parent 84e840566e
commit 37b1f57731
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/jcf2/Process/Returns/RemoveReturnsAfterBegin.pas
View File

@ -74,7 +74,7 @@ begin
lcNext := lcSourceToken.NextTokenWithExclusions([ttWhiteSpace, ttReturn]); lcNext := lcSourceToken.NextTokenWithExclusions([ttWhiteSpace, ttReturn]);
liReturnCount := 0; liReturnCount := 0;
liMaxReturns := 2; liMaxReturns := Succ(FormattingSettings.Returns.MaxBlankLinesInSection);
lcTest := lcSourceToken; lcTest := lcSourceToken;
{ remove all returns up to that point (except one) } { remove all returns up to that point (except one) }

2
components/jcf2/Process/Returns/RemoveReturnsBeforeEnd.pas
View File

@ -76,7 +76,7 @@ begin
exit; exit;
liReturnCount := 0; liReturnCount := 0;
liMaxReturns := 2; liMaxReturns := Succ(FormattingSettings.Returns.MaxBlankLinesInSection);
lcTest := lcSourceToken; lcTest := lcSourceToken;
{ remove all returns up to that point (except one) } { remove all returns up to that point (except one) }