From 1b44dcd9a33d8028366b96a8649eff70b77f7afd Mon Sep 17 00:00:00 2001
From: nyamatongwe <devnull@localhost>
Date: Thu, 17 Feb 2011 13:07:28 +1100
Subject: Folding of "procedure". Feature #3184356. Only create an end fold for
 "module procedure", not just "procedure".

---
 lexers/LexFortran.cxx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lexers')

diff --git a/lexers/LexFortran.cxx b/lexers/LexFortran.cxx
index 096f5994f..47e46e82f 100644
--- a/lexers/LexFortran.cxx
+++ b/lexers/LexFortran.cxx
@@ -266,7 +266,7 @@ static int classifyFoldPointFortran(const char* s, const char* prevWord, const c
 		|| strcmp(s, "endmodule") == 0 || strcmp(s, "endprogram") == 0
 		|| strcmp(s, "endsubroutine") == 0 || strcmp(s, "endtype") == 0
 		|| strcmp(s, "endwhere") == 0
-		|| strcmp(s, "procedure") == 0 ) { // Take care of the module procedure statement
+		|| (strcmp(s, "procedure") == 0 && strcmp(prevWord,"module")==0)  // Take care of the module procedure statement
 			lev = -1;
 	} else if (strcmp(prevWord, "end") == 0 && strcmp(s, "if") == 0){ // end if
 			lev = 0;
-- 
cgit v1.2.3