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

fix issue 218 - Bracket matching broken when building with Laz 1.8

This commit is contained in:
Basile Burg 2018-01-12 16:13:16 +01:00
parent c492d9fa3e
commit 8ad59f39f6
2 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
patches/issue218.patch Normal file
View File

@ -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)

2
patches/readme.md Normal file
View File

@ -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.