From 017f97389f88a92b6f62f709d30cde0f50ed92a0 Mon Sep 17 00:00:00 2001
From: Neil <nyamatongwe@gmail.com>
Date: Tue, 24 Feb 2015 10:10:05 +1100
Subject: Bug [#1642]. Fixes a bug with some strings in TCL. From Markus Moser.

---
 lexers/LexTCL.cxx | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'lexers/LexTCL.cxx')

diff --git a/lexers/LexTCL.cxx b/lexers/LexTCL.cxx
index 7c883a644..004dab113 100644
--- a/lexers/LexTCL.cxx
+++ b/lexers/LexTCL.cxx
@@ -257,7 +257,7 @@ next:
 				sc.ForwardSetState(SCE_TCL_DEFAULT);
 				visibleChars = true; // necessary if a " is the first and only character on a line
 				goto next;
-			} else if (sc.ch == '[' || sc.ch == ']' || sc.ch == '$') {
+			} else if (sc.ch == '[' || sc.ch == ']' || sc.ch == '$' || sc.ch == '(') {
 				sc.SetState(SCE_TCL_OPERATOR);
                 expected = sc.ch == '[';
                 sc.ForwardSetState(SCE_TCL_IN_QUOTE);
@@ -324,7 +324,11 @@ next:
 					break;
                 case '$':
                     subParen = 0;
-                    if (sc.chNext != '{') {
+                    if (sc.chNext == '(') {
+                        //$("") jquery selector?!
+                        sc.SetState(SCE_TCL_OPERATOR);
+                    } 
+                    else if (sc.chNext != '{') {
                         sc.SetState(SCE_TCL_SUBSTITUTION);
                     }
                     else {
-- 
cgit v1.2.3