mirror of https://gitlab.com/basile.b/dexed.git
fix issue 218 - Bracket matching broken when building with Laz 1.8
This commit is contained in:
parent
c492d9fa3e
commit
8ad59f39f6
|
@ -0,0 +1,23 @@
|
||||||
|
Fixes https://github.com/BBasile/Coedit/issues/218
|
||||||
|
Must be applied to any Lazarus 1.8.0 Vanilla.
|
||||||
|
Has not be applied to Lazarus 1.8.1 or newer.
|
||||||
|
--- synedit.pp
|
||||||
|
+++ synedit.pp
|
||||||
|
@@ -8945,7 +8945,7 @@
|
||||||
|
while not Highlighter.GetEol do begin
|
||||||
|
Start := Highlighter.GetTokenPos + 1;
|
||||||
|
Token := Highlighter.GetToken;
|
||||||
|
+ if (PosX >= Start) and (PosX < Start + Length(Token)) then begin
|
||||||
|
- if (PosX >= Start) and (PosX <= Start + Length(Token)) then begin
|
||||||
|
Attri := Highlighter.GetTokenAttribute;
|
||||||
|
TokenType := Highlighter.GetTokenKind;
|
||||||
|
exit(True);
|
||||||
|
@@ -8990,7 +8990,7 @@
|
||||||
|
//TokenType := Highlighter.GetTokenKind;
|
||||||
|
Attri := Highlighter.GetTokenAttribute;
|
||||||
|
//DebugLn([' TCustomSynEdit.CaretAtIdentOrString: Start=', Start, ', Token=', Token]);
|
||||||
|
+ if (PosX >= Start) and (PosX < Start + Length(Token)) then
|
||||||
|
- if (PosX >= Start) and (PosX <= Start + Length(Token)) then
|
||||||
|
begin
|
||||||
|
AtIdent := Attri = Highlighter.IdentifierAttribute;
|
||||||
|
NearString := (Attri = Highlighter.StringAttribute)
|
|
@ -0,0 +1,2 @@
|
||||||
|
This folder contains patches for the Lazarus LCL or the FreePascal FCL. They should be applied before building.
|
||||||
|
See individual comments at the beginning of each patch to know which version of Lazarus needs a modification.
|
Loading…
Reference in New Issue