# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1364145726 14400
# Node ID 8097a052ec577f200dfdb768c88d681b6ec42859
# Parent  1e064963c90a207a08718cc701da3f2df8e6e4a6
use secondary prompt when reading block comments

* lex.ll ^{S}*{CCHAR}\{{S}*{NL}): Decrement promptflag when pushing
block comment start state.
(<BLOCK_COMMENT_START>^{S}*{CCHAR}\}{S}*{NL}): Increment promptflag
when popping block comment start state.

diff -r 1e064963c90a -r 8097a052ec57 libinterp/parse-tree/lex.ll
--- a/libinterp/parse-tree/lex.ll	Sun Mar 24 13:01:17 2013 -0400
+++ b/libinterp/parse-tree/lex.ll	Sun Mar 24 13:22:06 2013 -0400
@@ -436,6 +436,8 @@
         curr_lexer->pop_start_state ();
       }
 
+    curr_lexer->decrement_promptflag ();
+
     curr_lexer->push_start_state (BLOCK_COMMENT_START);
 
   }
@@ -472,7 +474,11 @@
     curr_lexer->block_comment_nesting_level--;
 
     if (curr_lexer->block_comment_nesting_level == 0)
-      curr_lexer->pop_start_state ();
+      {
+        curr_lexer->increment_promptflag ();
+
+        curr_lexer->pop_start_state ();
+      }
   }
 
 %{