paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 11:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Clean up

Browse Source 
git-svn-id: trunk@25767 -
This commit is contained in:
martin 2010-05-30 13:45:06 +00:00
parent 64ac4380bd
commit d475d6b745
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synhighlighterpas.pp
View File

@ -2634,7 +2634,6 @@ begin
fAsmStart := False;
fTokenPos := Run;
FTokenIsCaseLabel := False;
{$IFDEF SYN_LAZARUS}
if Run>=fLineLen then begin
fTokenID := tkNull;
exit;
@ -2644,15 +2643,12 @@ begin
#10: LFProc;
#13: CRProc;
else
{$ENDIF}
if rsAnsi in fRange then
AnsiProc
else if rsBor in fRange then
BorProc
{$IFDEF SYN_LAZARUS}
else if rsDirective in fRange then
DirectiveProc
{$ENDIF}
else begin
if rsAtEqual in fRange then
fRange := fRange + [rsAfterEqual] - [rsAtEqual]
@ -2675,9 +2671,7 @@ begin
else
fRange := fRange - [rsAtClosingBracket];
end
{$IFDEF SYN_LAZARUS}
end;
{$ENDIF}
if not(FTokenID in [tkSpace, tkComment]) then
FAtLineStart := False;
//DebugLn(['TSynPasSyn.Next Run=',Run,' fTokenPos=',fTokenPos,' fLineStr=',fLineStr,' Token=',GetToken]);