From d156b92d1ba0cc389478698c0e1a84dbf52d307b Mon Sep 17 00:00:00 2001 From: martin Date: Wed, 4 Feb 2009 22:11:27 +0000 Subject: [PATCH] SynEdit, PasHighlighter: The matching "End" for "Unit" was no longer found. Bug since revision 18443 #f4ca0b1d9f git-svn-id: trunk@18571 - --- components/synedit/synhighlighterpas.pp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/components/synedit/synhighlighterpas.pp b/components/synedit/synhighlighterpas.pp index 85bd3c4db9..d3abf019ef 100644 --- a/components/synedit/synhighlighterpas.pp +++ b/components/synedit/synhighlighterpas.pp @@ -799,7 +799,7 @@ begin end else if TopPascalCodeFoldBlockType = cfbtUnitSection then begin EndCodeFoldBlockLastLine; - if TopPascalCodeFoldBlockType = cfbtBeginEnd then // "Unit".."end." + if TopPascalCodeFoldBlockType = cfbtUnit then // "Unit".."end." EndCodeFoldBlock; end else begin if TopPascalCodeFoldBlockType = cfbtClassSection then