diff options
| author | nyamatongwe <devnull@localhost> | 2001-01-25 23:35:05 +0000 |
|---|---|---|
| committer | nyamatongwe <devnull@localhost> | 2001-01-25 23:35:05 +0000 |
| commit | 2f2ac68fd426bc84adb581720868d33781ddc47b (patch) | |
| tree | 96a3a6ac865040720da9ba455db269ce4e00d68d /src/LexPerl.cxx | |
| parent | a6dd5881a232c4d1d37be3133f07921e540bdfef (diff) | |
| download | scintilla-mirror-2f2ac68fd426bc84adb581720868d33781ddc47b.tar.gz | |
Patch from Steffen to make .. as in for ( 1..9 ) work.
Diffstat (limited to 'src/LexPerl.cxx')
| -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; } |