From eb2f13d1d74b4ee314cd52cd29b250d258bfeb14 Mon Sep 17 00:00:00 2001
From: Ivan Bondarev <ibond84@googlemail.com>
Date: Fri, 13 Aug 2021 14:49:32 +0200
Subject: [PATCH] fix pascalabcnet/pascalabcnetide#185

---
 VisualPascalABCNET/IB/CodeCompletion/FoldingStrategy.cs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/VisualPascalABCNET/IB/CodeCompletion/FoldingStrategy.cs b/VisualPascalABCNET/IB/CodeCompletion/FoldingStrategy.cs
index b8527d278..e33016957 100644
--- a/VisualPascalABCNET/IB/CodeCompletion/FoldingStrategy.cs
+++ b/VisualPascalABCNET/IB/CodeCompletion/FoldingStrategy.cs
@@ -61,6 +61,8 @@ namespace VisualPascalABC
                 if (body_pos.file_name != null)
                 {
                     FoldMarker newFoldMarker = null;
+                    if (body_pos.line < pos.line && foldMarkers.Count > 0)
+                        foldMarkers.RemoveAt(foldMarkers.Count - 1);
                     newFoldMarker = new FoldMarker(doc, body_pos.line - 1, body_pos.column - 1, body_pos.end_line - 1, body_pos.end_column, FoldType.MemberBody);
                     if (newFoldMarker.Length > 0)
                     {