>From f20fb9dadea09c1703e705b72b836872ae592c15 Mon Sep 17 00:00:00 2001
From: Jochen Keil <jochen.keil@emlix.com>
Date: Fri, 29 Jan 2010 14:24:02 +0100
Subject: [PATCH 7/9] consume whole lines or at least the newline character

---
 tcl-dox.l |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/tcl-dox.l b/tcl-dox.l
index e99959e..d49e3ce 100644
--- a/tcl-dox.l
+++ b/tcl-dox.l
@@ -175,7 +175,7 @@ WS    [ \t]
 
 <EXEC>{
 	.*"exec"[ \t]+.* {BEGIN(INITIAL);}
-	.* {BEGIN(EXEC);}
+	.*|\n {BEGIN(EXEC);}
 }
 
 
@@ -320,7 +320,7 @@ WS    [ \t]
 }
 
 <PROC_EAT>{
-	.*\n {
+	.*|\n {
 		do
 		{
 			switch (*yytext)
-- 
1.6.6.1