fix Fold.DeleteExceptTag

Alexey-T · Sep 8, 2019 · 476c255 · 476c255
1 parent a798fdc
commit 476c255
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/atsynedit/atsynedit_ranges.pas b/atsynedit/atsynedit_ranges.pas
@@ -238,7 +238,7 @@ procedure TATSynRanges.DeleteAllExceptTag(const ATag: Int64);
     for i:= 0 to FList.Count-1 do
       if ItemPtr(i)^.Tag=ATag then
         TempList.Add(ItemPtr(i)^);
-    Clear;
+    FList.Clear;
     for i:= 0 to TempList.Count-1 do
       FList.Add(TempList.ItemPtr(i)^);
   finally