|
@@ -554,14 +554,14 @@ end;
|
|
procedure TInnoSetupStyler.ApplyPendingSquigglyFromToIndex(const StartIndex, EndIndex: Integer);
|
|
procedure TInnoSetupStyler.ApplyPendingSquigglyFromToIndex(const StartIndex, EndIndex: Integer);
|
|
begin
|
|
begin
|
|
if (CaretIndex >= StartIndex) and (CaretIndex <= EndIndex) then
|
|
if (CaretIndex >= StartIndex) and (CaretIndex <= EndIndex) then
|
|
- ApplyIndicators([inPendingSquiggly], StartIndex, EndIndex - 1)
|
|
|
|
|
|
+ ApplyIndicators([inPendingSquiggly], StartIndex, EndIndex)
|
|
else
|
|
else
|
|
- ApplyIndicators([inSquiggly], StartIndex, EndIndex - 1);
|
|
|
|
|
|
+ ApplyIndicators([inSquiggly], StartIndex, EndIndex);
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TInnoSetupStyler.ApplyPendingSquigglyFromIndex(const StartIndex: Integer);
|
|
procedure TInnoSetupStyler.ApplyPendingSquigglyFromIndex(const StartIndex: Integer);
|
|
begin
|
|
begin
|
|
- ApplyPendingSquigglyFromToIndex(StartIndex, CurIndex);
|
|
|
|
|
|
+ ApplyPendingSquigglyFromToIndex(StartIndex, CurIndex - 1);
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TInnoSetupStyler.ApplySquigglyFromIndex(const StartIndex: Integer);
|
|
procedure TInnoSetupStyler.ApplySquigglyFromIndex(const StartIndex: Integer);
|
|
@@ -1030,7 +1030,7 @@ begin
|
|
|
|
|
|
if NeedIspp and not IsppInstalled then begin
|
|
if NeedIspp and not IsppInstalled then begin
|
|
if InlineDirective then
|
|
if InlineDirective then
|
|
- ApplyPendingSquigglyFromToIndex(StartIndex + 1, InlineDirectiveEndIndex)
|
|
|
|
|
|
+ ApplyPendingSquigglyFromToIndex(StartIndex + 1, InlineDirectiveEndIndex - 1)
|
|
else
|
|
else
|
|
ApplyPendingSquigglyFromIndex(StartIndex + 1);
|
|
ApplyPendingSquigglyFromIndex(StartIndex + 1);
|
|
end;
|
|
end;
|
|
@@ -1267,7 +1267,7 @@ begin
|
|
ResetCurIndexTo(0);
|
|
ResetCurIndexTo(0);
|
|
end;
|
|
end;
|
|
if not Valid then
|
|
if not Valid then
|
|
- ApplyPendingSquigglyFromToIndex(StartIndex, I);
|
|
|
|
|
|
+ ApplyPendingSquigglyFromToIndex(StartIndex, I - 1);
|
|
{ Replace the directive with spaces to prevent any further processing }
|
|
{ Replace the directive with spaces to prevent any further processing }
|
|
ReplaceText(StartIndex, I - 1, ' ');
|
|
ReplaceText(StartIndex, I - 1, ' ');
|
|
end
|
|
end
|