paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 14:00:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: MarkupIfdef, clear caches.

Browse Source 
git-svn-id: trunk@60517 -
This commit is contained in:
martin 2019-02-26 18:51:51 +00:00
parent 9d250edfa3
commit b5b5dab6de
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syneditmarkupifdef.pp
View File

@ -1584,6 +1584,7 @@ end;
function TSynMarkupHighIfDefLinesNodeInfo.Precessor: TSynMarkupHighIfDefLinesNodeInfo; function TSynMarkupHighIfDefLinesNodeInfo.Precessor: TSynMarkupHighIfDefLinesNodeInfo;
begin begin
ClearNestCache; ClearNestCache;
Result.ClearNestCache;
Result.FTree := FTree; Result.FTree := FTree;
If HasNode then begin If HasNode then begin
Result.FStartLine := FStartLine; Result.FStartLine := FStartLine;
@ -1606,6 +1607,7 @@ end;
function TSynMarkupHighIfDefLinesNodeInfo.Successor: TSynMarkupHighIfDefLinesNodeInfo; function TSynMarkupHighIfDefLinesNodeInfo.Successor: TSynMarkupHighIfDefLinesNodeInfo;
begin begin
ClearNestCache; ClearNestCache;
Result.ClearNestCache;
Result.FTree := FTree; Result.FTree := FTree;
If HasNode then begin If HasNode then begin
Result.FStartLine := FStartLine; Result.FStartLine := FStartLine;