Missed rename from earlier.

jrsoftware · Jun 13, 2024 · b45c41f · b45c41f
1 parent 470f595
commit b45c41f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Projects/Src/CompForm.pas b/Projects/Src/CompForm.pas
@@ -3281,7 +3281,7 @@ procedure TCompileForm.UpdateOccurrenceIndicators(const AMemo: TCompScintEdit);
 
   procedure FindTextAndAddRanges(const AMemo: TCompScintEdit;
     const TextToFind: TScintRawString; const Options: TScintFindOptions;
-    const SelAvail: Boolean; const Selection: TScintRange;
+    const SelNotEmpty: Boolean; const Selection: TScintRange;
     const ARangeList: TScintRangeList);
   begin
     if ScintRawStringIsBlank(TextToFind) then
@@ -3307,7 +3307,7 @@ procedure TCompileForm.UpdateOccurrenceIndicators(const AMemo: TCompScintEdit);
         occurrence somewhere else the additional selection becomes hidden by the
         indicator except for the very top and bottom (due to use of
         INDIC_STRAIGHTBOX instead of INDIC_FULLBOX) }
-      if SelAvail and Range.Overlaps(Selection) then begin
+      if SelNotEmpty and Range.Overlaps(Selection) then begin
         if Range.StartPos < Selection.StartPos then
           ARangeList.Add(TScintRange.Create(Range.StartPos, Selection.StartPos));
         if Range.EndPos > Selection.EndPos then