From 4e4207ff55d12d187d5de8eba809ff8adf012d5e Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Wed, 26 Nov 2014 04:58:20 +0100
Subject: [PATCH] added custom fold block, start on line comment ending with
 ---+, stop with line comment ending with ----

---
 src/ce_d2syn.pas | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/ce_d2syn.pas b/src/ce_d2syn.pas
index 66bcc20e..5a6c94c6 100644
--- a/src/ce_d2syn.pas
+++ b/src/ce_d2syn.pas
@@ -476,6 +476,18 @@ begin
     if readDelim(reader, fTokStop, '/') then
       fTokKind := tkDDocs;
     readLine(reader, fTokStop);
+
+    if fTokStop - fTokStart > 4 then
+    begin
+      Dec(reader,4);
+      Dec(fTokStop,4);
+      if reader = '---+'#10 then
+        StartCodeFoldBlock(nil)
+      else if reader = '----'#10 then
+        EndCodeFoldBlock();
+      readLine(reader, fTokStop);
+    end;
+
     exit;
   end else readerReset;