paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 07:55:58 +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
SysUtils, Classes, SynEditMiscClasses, SynHighlighterPas, SynEditMarkupHighAll,
SynEditHighlighterFoldBase, SynEditFoldedView, LazSynEditText, SynEditMiscProcs,
SynEditMarkup, SynEditTypes, SynEditPointClasses, LazClasses, LazLoggerBase, Graphics,
SynEditMarkup, SynEditPointClasses, LazClasses, LazLoggerBase, Graphics,
LCLProc;
type
@ -3255,8 +3255,6 @@ var
var AFirstIdx: Integer);
var
CurFoundLine: Integer;
CloseNode: TSynMarkupHighIfDefEntry;
procedure SetResultFor(AEntry: TSynMarkupHighIfDefEntry; ALine: Integer);
begin
CurFoundLine := ALine;