const cTagPersistentFoldRange

Alexey-T · Jun 30, 2019 · bf45a4b · bf45a4b
1 parent 480bcaa
commit bf45a4b
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/atsynedit/atsynedit_cmd_misc.inc b/atsynedit/atsynedit_cmd_misc.inc
@@ -184,7 +184,7 @@ begin
 
   if Fold.FindRangeWithPlusAtLine(Y1)>=0 then exit;
 
-  Fold.Add(1, Y1, Y2, false, '', -1);
+  Fold.Add(1, Y1, Y2, false, '', cTagPersistentFoldRange);
   DoRangeFold(Fold.Count-1);
 
   Result:= [cResultCaretAny, cResultFoldChange];

diff --git a/atsynedit/atsynedit_ranges.pas b/atsynedit/atsynedit_ranges.pas
@@ -83,6 +83,9 @@   TATSynRanges = class
     procedure Update(AChange: TATLineChangeKind; ALineIndex, AItemCount: integer);
   end;
 
+const
+  cTagPersistentFoldRange = -1;
+
 implementation
 
 uses
@@ -351,7 +354,6 @@ function TATSynRanges.MessageText(Cnt: integer): string;
 end;
 
 procedure TATSynRanges.Update(AChange: TATLineChangeKind; ALineIndex, AItemCount: integer);
-//Tag=-1 means persistent range, from command "Fold selection"
 var
   Rng: PATSynRange;
   i: integer;
@@ -364,7 +366,7 @@ procedure TATSynRanges.Update(AChange: TATLineChangeKind; ALineIndex, AItemCount
       for i:= FList.Count-1 downto 0 do
         begin
           Rng:= FList.ItemPtr(i);
-          if Rng^.Tag<>-1 then Continue;
+          if Rng^.Tag<>cTagPersistentFoldRange then Continue;
 
           if Rng^.Y>=ALineIndex+AItemCount then
           begin
@@ -393,7 +395,7 @@ procedure TATSynRanges.Update(AChange: TATLineChangeKind; ALineIndex, AItemCount
       for i:= FList.Count-1 downto 0 do
         begin
           Rng:= FList.ItemPtr(i);
-          if Rng^.Tag<>-1 then Continue;
+          if Rng^.Tag<>cTagPersistentFoldRange then Continue;
 
           if Rng^.Y>=ALineIndex then
           begin