From 6b146e181859b1ca20cb4c9bc46f7731af9fdb1f Mon Sep 17 00:00:00 2001
From: nyamatongwe <devnull@localhost>
Date: Tue, 13 Aug 2002 08:20:23 +0000
Subject: Patch from Laurent to make case statements fold.

---
 src/LexPascal.cxx | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/LexPascal.cxx')

diff --git a/src/LexPascal.cxx b/src/LexPascal.cxx
index 491d968ac..2f2be32e4 100644
--- a/src/LexPascal.cxx
+++ b/src/LexPascal.cxx
@@ -32,10 +32,13 @@ static int classifyWordPascal(unsigned int start, unsigned int end, WordList &ke
 	else {
 		if (keywords.InList(s)) {
 			chAttr = SCE_C_WORD;
-			if (strcmp(s, "begin") == 0 || strcmp(s, "object") == 0)
+			if (strcmp(s, "begin") == 0 || 
+				strcmp(s, "object") == 0 || 
+				strcmp(s,"case") == 0) {
 				lev=1;
-			else if (strcmp(s, "end") == 0)
+			} else if (strcmp(s, "end") == 0) {
 				lev=-1;
+			}
 		}
 	}
 	styler.ColourTo(end, chAttr);
-- 
cgit v1.2.3