paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 23:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit: clean up

Browse Source 
git-svn-id: trunk@41430 -
This commit is contained in:
mattias 2013-05-27 09:09:39 +00:00
parent f07d4394eb
commit cce525b450
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/syneditmarkupifdef.pp
View File

@ -25,7 +25,7 @@ interface
uses uses
SysUtils, Classes, SynEditMiscClasses, SynHighlighterPas, SynEditMarkupHighAll, SysUtils, Classes, SynEditMiscClasses, SynHighlighterPas, SynEditMarkupHighAll,
SynEditHighlighterFoldBase, SynEditFoldedView, LazSynEditText, SynEditMiscProcs, SynEditHighlighterFoldBase, SynEditFoldedView, LazSynEditText, SynEditMiscProcs,
SynEditMarkup, SynEditTypes, SynEditPointClasses, LazClasses, LazLoggerBase, Graphics, SynEditMarkup, SynEditPointClasses, LazClasses, LazLoggerBase, Graphics,
LCLProc; LCLProc;
type type
@ -3255,8 +3255,6 @@ var
var AFirstIdx: Integer); var AFirstIdx: Integer);
var var
CurFoundLine: Integer; CurFoundLine: Integer;
CloseNode: TSynMarkupHighIfDefEntry;
procedure SetResultFor(AEntry: TSynMarkupHighIfDefEntry; ALine: Integer); procedure SetResultFor(AEntry: TSynMarkupHighIfDefEntry; ALine: Integer);
begin begin
CurFoundLine := ALine; CurFoundLine := ALine;