diff options
| author | nyamatongwe <devnull@localhost> | 2011-02-17 13:07:28 +1100 |
|---|---|---|
| committer | nyamatongwe <devnull@localhost> | 2011-02-17 13:07:28 +1100 |
| commit | 1b44dcd9a33d8028366b96a8649eff70b77f7afd (patch) | |
| tree | 286a1c3c060a32019764506e34978a93892870d1 | |
| parent | 13b7d78cccc39e2d23ecbd4b9c49f01fd1a6868d (diff) | |
| download | scintilla-mirror-1b44dcd9a33d8028366b96a8649eff70b77f7afd.tar.gz | |
Folding of "procedure". Feature #3184356.
Only create an end fold for "module procedure", not just "procedure".
| -rw-r--r-- | lexers/LexFortran.cxx | 2 |
1 files changed, 1 insertions, 1 deletions
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; |