From d3e34a788104f5ec09791c1bfceb128b06931808 Mon Sep 17 00:00:00 2001
From: albert-github <albert.tests@gmail.com>
Date: Wed, 24 Apr 2019 18:28:54 +0200
Subject: issue #6941 Tcl : separate continued lines joined in source listing

The input was "forgotten" but should be outputted anyway.
---
 src/tclscanner.l | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/tclscanner.l b/src/tclscanner.l
index df52201..91d45bb 100644
--- a/src/tclscanner.l
+++ b/src/tclscanner.l
@@ -1049,7 +1049,7 @@ D
   tcl.string_commentcodify = "";
   tcl.string_commentline = "";
   tcl.line_body1=yylineno;
-  tcl_command(-1,"");
+  tcl_command(-1,yytext);
 }
 <COMMAND>{ws}*; {
 D
-- 
cgit v0.12