paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:41:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: source editor: set elseif

Browse Source 
git-svn-id: trunk@41197 -
This commit is contained in:
mattias 2013-05-14 21:11:19 +00:00
parent ec42d1983b
commit 3904b0b4eb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourceeditor.pp
View File

@ -5459,7 +5459,7 @@ begin
begin begin
aDirective:=Scanner.DirectivesSorted[i]; aDirective:=Scanner.DirectivesSorted[i];
if TCodeBuffer(aDirective^.Code)<>Code then continue; if TCodeBuffer(aDirective^.Code)<>Code then continue;
if not (aDirective^.Kind in (lsdkAllIf+[lsdkElIfC])) then continue; if not (aDirective^.Kind in (lsdkAllIf+[lsdkElIfC,lsdkElseIf])) then continue;
Code.AbsoluteToLineCol(aDirective^.SrcPos,Y,X); Code.AbsoluteToLineCol(aDirective^.SrcPos,Y,X);
if Y<1 then continue; if Y<1 then continue;
SynState:=idnInvalid; SynState:=idnInvalid;