# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1226432042 18000
# Node ID 7124bffc89c706595d118183b2ac019c5116d241
# Parent  87f316e219b6aef227d06d0947ca811192dcbc51
parse.y (F__parser_debug_flag__): New function.

diff --git a/src/ChangeLog b/src/ChangeLog
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-11-11  John W. Eaton  <jwe@octave.org>
+
+	* parse.y (F__parser_debug_flag__): New function.
+
 2008-10-31  Jaroslav Hajek <highegg@gmail.com>
 
 	* xnorm.cc: New source.
diff --git a/src/parse.y b/src/parse.y
--- a/src/parse.y
+++ b/src/parse.y
@@ -4101,6 +4101,21 @@
   return retval;
 }
 
+DEFUN (__parser_debug_flag__, args, nargout,
+  "Undocumented internal function.")
+{
+  octave_value retval;
+
+  bool debug_flag = octave_debug;
+
+  retval = set_internal_variable (debug_flag, args, nargout,
+           			  "__parser_debug_flag__");
+
+  octave_debug = debug_flag;
+
+  return retval;
+}
+
 /*
 ;;; Local Variables: ***
 ;;; mode: text ***