forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

sxsyn, fix range comparison

This commit is contained in:
Basile Burg 2021-11-02 00:32:56 +01:00
parent 2428994828
commit 846f86fb40
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/u_sxsyn.pas
View File

@ -169,15 +169,13 @@ end;
function TSynSxSynRange.Compare(range: TSynCustomHighlighterRange): integer;
begin
result := inherited Compare(range);
assert(range <> nil);
if not result.equals(0) then
exit;
if range is TSynSxSynRange then
result := integer(rangeKind = TSynSxSynRange(range).rangeKind);
if (range is TSynSxSynRange) and (rangeKind = TSynSxSynRange(range).rangeKind) then
result := 1;
end;
procedure TSynSxSynRange.Clear;
begin
inherited;
rangeKind := TRangeKind.rkNone;
end;