Mercurial > hg > octave-lyh

diff src/octave.cc @ 1489:3e705c864019

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-09-28 05:38:26 by jwe]
author jwe
date Thu, 28 Sep 1995 05:38:26 +0000
parents 89c587478067
children 14d8c0a838c1
line wrap: on
line diff
--- a/src/octave.cc
+++ b/src/octave.cc
@@ -979,8 +979,8 @@
 
       if (nargin > 1)
 	{
-	  unwind_protect_int (suppress_octave_error_messages);
-	  suppress_octave_error_messages = 1;
+	  unwind_protect_int (buffer_error_messages);
+	  buffer_error_messages = 1;
 	}
 
       int parse_status = 0;
@@ -990,7 +990,16 @@
       if (nargin > 1 && (parse_status != 0 || error_state))
 	{
 	  error_state = 0;
+
+	  // Set up for letting the user print any messages from
+	  // errors that occurred in the first part of this eval().
+
+	  buffer_error_messages = 0;
+	  bind_global_error_variable ();
+	  add_unwind_protect (clear_global_error_variable, 0);
+
 	  eval_string (args(1), parse_status, nargout);
+
 	  retval = Octave_object ();
 	}