From cac98b923422b91839f7c285a9b78ea282cd6f0a Mon Sep 17 00:00:00 2001
From: nyamatongwe <unknown>
Date: Thu, 31 May 2007 23:30:43 +0000
Subject: Patch from Istvan Szollosi fixes bad folding for Pascal and GAP when
 fold affecting text is not separated by whitespace.

---
 src/LexPascal.cxx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/LexPascal.cxx')

diff --git a/src/LexPascal.cxx b/src/LexPascal.cxx
index 434f88d4f..fdd12c470 100644
--- a/src/LexPascal.cxx
+++ b/src/LexPascal.cxx
@@ -289,7 +289,7 @@ static void FoldPascalDoc(unsigned int startPos, int length, int initStyle, Word
 		styleNext = styler.StyleAt(i + 1);
 		bool atEOL = (ch == '\r' && chNext != '\n') || (ch == '\n');
 
-		if (stylePrev == SCE_C_DEFAULT && style == SCE_C_WORD)
+		if (stylePrev != SCE_C_WORD && style == SCE_C_WORD)
 		{
 			// Store last word start point.
 			lastStart = i;
-- 
cgit v1.2.3