From 6d7193877c4175cfc982bc608b1400212404ffba Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Tue, 24 Mar 2015 07:39:45 +0100
Subject: [PATCH] fix, ddoc fold as option, close according to options, not
 both

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

diff --git a/src/ce_d2syn.pas b/src/ce_d2syn.pas
index 512c678b..976b7e22 100644
--- a/src/ce_d2syn.pas
+++ b/src/ce_d2syn.pas
@@ -553,9 +553,11 @@ begin
       else fTokKind := tkCommt;
     if readUntil(reader, fTokStop, '*/') then
     begin
-      fCurrRange.rangeKinds -= [rkBlockDoc1, rkBlockCom1];
-      if (fkComments1 in fFoldKinds) or (fkDDoc in fFoldKinds) then
+      if (fkComments1 in fFoldKinds) and (fTokKind = tkCommt) then
+        EndCodeFoldBlock()
+      else if (fkDDoc in fFoldKinds) and (fTokKind = tkDDocs) then
         EndCodeFoldBlock();
+      fCurrRange.rangeKinds -= [rkBlockDoc1, rkBlockCom1];
       exit;
     end;
     readLine(reader, fTokStop);
@@ -595,9 +597,11 @@ begin
       dec(fCurrRange.nestedCommentsCount);
       if fCurrRange.nestedCommentsCount <> 0 then
         exit;
-      fCurrRange.rangeKinds -= [rkBlockDoc2, rkBlockCom2];
-      if (fkComments2 in fFoldKinds) or (fkDDoc in fFoldKinds) then
+      if (fkComments2 in fFoldKinds) and (fTokKind = tkCommt) then
+        EndCodeFoldBlock()
+      else if (fkDDoc in fFoldKinds) and (fTokKind = tkDDocs) then
         EndCodeFoldBlock();
+      fCurrRange.rangeKinds -= [rkBlockDoc2, rkBlockCom2];
       exit;
     end;
     readLine(reader, fTokStop);