aboutsummaryrefslogtreecommitdiffhomepage
path: root/lexers/LexTCL.cxx
diff options
context:
space:
mode:
Diffstat (limited to 'lexers/LexTCL.cxx')
-rw-r--r--lexers/LexTCL.cxx4
1 files changed, 3 insertions, 1 deletions
diff --git a/lexers/LexTCL.cxx b/lexers/LexTCL.cxx
index 0948f4880..1ea6ecf6e 100644
--- a/lexers/LexTCL.cxx
+++ b/lexers/LexTCL.cxx
@@ -128,8 +128,10 @@ next:
continue;
case ',':
sc.SetState(SCE_TCL_OPERATOR);
- if (subParen)
+ if (subParen) {
sc.ForwardSetState(SCE_TCL_SUBSTITUTION);
+ goto next; // Already forwarded so avoid loop's Forward()
+ }
continue;
default :
// maybe spaces should be allowed ???