# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1383855934 18000
# Node ID cf3f828f401c9e6f750bb183118f4992b8ac2c4a
# Parent  7aadb87f599a61c61c24c60f892fb43a06dd7152
only allow [%#]{ as block comment start (bug #40513)

* lex.ll (<LINE_COMMENT_START>{S}*{CCHAR}.*{NL}): Don't allow multiple
comment characters prior to { to signal the start of a block comment.

diff -r 7aadb87f599a -r cf3f828f401c libinterp/parse-tree/lex.ll
--- a/libinterp/parse-tree/lex.ll	Thu Nov 07 12:08:51 2013 -0800
+++ b/libinterp/parse-tree/lex.ll	Thu Nov 07 15:25:34 2013 -0500
@@ -596,7 +596,7 @@
 
     if (full_line_comment)
       {
-        if (yytext[i++] == '{')
+        if (num_comment_chars == 1 && yytext[i++] == '{')
           {
             bool looks_like_block_comment = true;