aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authornyamatongwe <devnull@localhost>2001-01-27 07:09:48 +0000
committernyamatongwe <devnull@localhost>2001-01-27 07:09:48 +0000
commita65e8d75bc22b73439e5043bb751c577eb8c0c08 (patch)
tree1e512c7a14304df4d790cf57d667baa8f154294f
parente2ce30a8b6f64cfec42408fecdcadd872d20086c (diff)
downloadscintilla-mirror-a65e8d75bc22b73439e5043bb751c577eb8c0c08.tar.gz
Patch from Eric to prefer REs after ';'.
-rw-r--r--src/LexPerl.cxx6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/LexPerl.cxx b/src/LexPerl.cxx
index f5487492a..833687741 100644
--- a/src/LexPerl.cxx
+++ b/src/LexPerl.cxx
@@ -640,7 +640,11 @@ static void ColourisePerlDoc(unsigned int startPos, int length, int initStyle,
} else if (iswordstart(ch)) {
state = SCE_PL_WORD;
preferRE = false;
- } else if (isoperator(ch)) {
+ } else if (isPerlOperator(ch)) {
+ if (ch == ')' || ch == ']')
+ preferRE = false;
+ else
+ preferRE = true;
styler.ColourTo(i, SCE_PL_OPERATOR);
}
}