diff options
| -rw-r--r-- | src/LexPerl.cxx | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/LexPerl.cxx b/src/LexPerl.cxx index 4140d70d9..d22d90a6a 100644 --- a/src/LexPerl.cxx +++ b/src/LexPerl.cxx @@ -254,7 +254,10 @@ static void ColourisePerlDoc(unsigned int startPos, int length, int initStyle, } else { state = SCE_PL_WORD; preferRE = false; - if (!iswordchar(chNext)) { // if length of word == 1 !!! + if ((!iswordchar(chNext) && chNext != '\'') + || (chNext == '.' && chNext2 == '.')) { + // We need that if length of word == 1! + // This test is copied from the SCE_PL_WORD handler. classifyWordPerl(styler.GetStartSegment(), i, keywords, styler); state = SCE_PL_DEFAULT; } |