Fix line counting within here-documentsrelease_4_0_patches

git-svn-id: file:///svnroot/mailfromd/branches/release_4_0_patches@1485 7a8a7f39-df28-0410-adc6-e0d955640f24

2 files changed, 5 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 8651cdf0..16ac14be 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,10 @@
+2007-06-01  Sergey Poznyakoff  <gray@gnu.org.ua>
+
+	* src/lex.l: Fix line counting within here-documents
+
 2007-05-12  Sergey Poznyakoff  <gray@gnu.org.ua>
 
 	-= Release 4.0 =-
 	
 2007-05-12  Sergey Poznyakoff  <gray@gnu.org.ua>
 
diff --git a/src/lex.l b/src/lex.l
index 017e835c..6b4aa8ee 100644
--- a/src/lex.l
+++ b/src/lex.l
@@ -848,12 +848,13 @@ end       return keyword(KW_END);
                line_finish();
                return STRING;
         }
         line_add(p, strlen(p));
 }
 <CML>[^\\$%\n]*\n {
+        locus.line++;
         if (yyleng >= multiline_delimiter_len
             && memcmp(yytext, multiline_delimiter,
                       multiline_delimiter_len) == 0
             && isemptystr(yytext + multiline_delimiter_len)) {
 	       free (multiline_delimiter);
 	       multiline_delimiter = NULL;