aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/LexHaskell.cxx
diff options
context:
space:
mode:
authornyamatongwe <unknown>2007-07-15 05:28:29 +0000
committernyamatongwe <unknown>2007-07-15 05:28:29 +0000
commit79ef06df2c43fc14a05cae9c2aa44aceec5efc21 (patch)
treead4dbe239642036b6ab2c8f215eea28c162172d9 /src/LexHaskell.cxx
parent4f16f4d91240441f1807775ab648da0c3b1f10ab (diff)
downloadscintilla-mirror-79ef06df2c43fc14a05cae9c2aa44aceec5efc21.tar.gz
Patch from Juan Carlos Arevalo Baeza fixes string literals.
Diffstat (limited to 'src/LexHaskell.cxx')
-rw-r--r--src/LexHaskell.cxx6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/LexHaskell.cxx b/src/LexHaskell.cxx
index da4349245..095675ee5 100644
--- a/src/LexHaskell.cxx
+++ b/src/LexHaskell.cxx
@@ -89,12 +89,16 @@ static void ColorizeHaskellDoc(unsigned int startPos, int length, int initStyle,
else if (sc.state == SCE_HA_STRING) {
if (sc.ch == '\"') {
sc.ForwardSetState(SCE_HA_DEFAULT);
+ } else if (sc.ch == '\\') {
+ sc.Forward();
}
}
// Char
else if (sc.state == SCE_HA_CHARACTER) {
if (sc.ch == '\'') {
sc.ForwardSetState(SCE_HA_DEFAULT);
+ } else if (sc.ch == '\\') {
+ sc.Forward();
}
}
// Number
@@ -189,7 +193,7 @@ static void ColorizeHaskellDoc(unsigned int startPos, int length, int initStyle,
sc.SetState(SCE_HA_STRING);
}
// Character
- else if (sc.Match('\'') && IsWhitespace(sc.GetRelative(-1)) ) {
+ else if (sc.Match('\'')) {
sc.SetState(SCE_HA_CHARACTER);
}
// Stringstart