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);
if (fkRegion in fFoldKinds) and (fTokStop - fTokStart > 4) then
begin
Dec(reader,4);
Dec(fTokStop,4);
if reader = '---+'#10 then
while isWhite(reader^) do
begin
Dec(reader);
Dec(fTokStop);
end;
Dec(reader, 3);
Dec(fTokStop, 3);
if reader[0..3] = '---+' then
begin
fCurrRange.namedRegionCount += 1;
StartCodeFoldBlock(nil);
end
else if (reader = '----'#10) and (fCurrRange.namedRegionCount > 0) then
else if (reader[0..3] = '----') and (fCurrRange.namedRegionCount > 0) then
begin
EndCodeFoldBlock();
fCurrRange.namedRegionCount -= 1;