From 79ef06df2c43fc14a05cae9c2aa44aceec5efc21 Mon Sep 17 00:00:00 2001
From: nyamatongwe <unknown>
Date: Sun, 15 Jul 2007 05:28:29 +0000
Subject: Patch from Juan Carlos Arevalo Baeza fixes string literals.

---
 src/LexHaskell.cxx | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3