forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

improved custom folded region, trailing blanks are allowed

This commit is contained in:
Basile Burg 2015-03-22 01:21:36 +01:00
parent fafb6c151f
commit 4c5d4a057d
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ce_d2syn.pas
View File

@ -505,14 +505,19 @@ begin
readLine(reader, fTokStop); readLine(reader, fTokStop);
if (fkRegion in fFoldKinds) and (fTokStop - fTokStart > 4) then if (fkRegion in fFoldKinds) and (fTokStop - fTokStart > 4) then
begin begin
Dec(reader,4); while isWhite(reader^) do
Dec(fTokStop,4); begin
if reader = '---+'#10 then Dec(reader);
Dec(fTokStop);
end;
Dec(reader, 3);
Dec(fTokStop, 3);
if reader[0..3] = '---+' then
begin begin
fCurrRange.namedRegionCount += 1; fCurrRange.namedRegionCount += 1;
StartCodeFoldBlock(nil); StartCodeFoldBlock(nil);
end end
else if (reader = '----'#10) and (fCurrRange.namedRegionCount > 0) then else if (reader[0..3] = '----') and (fCurrRange.namedRegionCount > 0) then
begin begin
EndCodeFoldBlock(); EndCodeFoldBlock();
fCurrRange.namedRegionCount -= 1; fCurrRange.namedRegionCount -= 1;