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

SynEdit Pas HL: recognize {$IFOPT}

Browse Source 
git-svn-id: trunk@37854 -
This commit is contained in:
martin 2012-07-02 21:49:22 +00:00
parent b08e12984d
commit 2edaf60158
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synhighlighterpas.pp
View File

@ -2509,7 +2509,7 @@ begin
inc(Run, 2); inc(Run, 2);
fToIdent := Run; fToIdent := Run;
KeyHash; KeyHash;
if KeyComp('ifdef') or KeyComp('ifndef') or KeyComp('if') then if KeyComp('ifdef') or KeyComp('ifndef') or KeyComp('if') or KeyComp('ifopt') then
StartDirectiveFoldBlock(cfbtIfDef) StartDirectiveFoldBlock(cfbtIfDef)
else if KeyComp('endif') then else if KeyComp('endif') then
EndDirectiveFoldBlock(cfbtIfDef) EndDirectiveFoldBlock(cfbtIfDef)