Mercurial > hg > octave-nkf

comparison 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
comparison
equal deleted inserted replaced
1488:89c587478067 1489:3e705c864019
977 { 977 {
978 begin_unwind_frame ("Feval"); 978 begin_unwind_frame ("Feval");
979 979
980 if (nargin > 1) 980 if (nargin > 1)
981 { 981 {
982 unwind_protect_int (suppress_octave_error_messages); 982 unwind_protect_int (buffer_error_messages);
983 suppress_octave_error_messages = 1; 983 buffer_error_messages = 1;
984 } 984 }
985 985
986 int parse_status = 0; 986 int parse_status = 0;
987 987
988 retval = eval_string (args(0), parse_status, nargout); 988 retval = eval_string (args(0), parse_status, nargout);
989 989
990 if (nargin > 1 && (parse_status != 0 || error_state)) 990 if (nargin > 1 && (parse_status != 0 || error_state))
991 { 991 {
992 error_state = 0; 992 error_state = 0;
993
994 // Set up for letting the user print any messages from
995 // errors that occurred in the first part of this eval().
996
997 buffer_error_messages = 0;
998 bind_global_error_variable ();
999 add_unwind_protect (clear_global_error_variable, 0);
1000
993 eval_string (args(1), parse_status, nargout); 1001 eval_string (args(1), parse_status, nargout);
1002
994 retval = Octave_object (); 1003 retval = Octave_object ();
995 } 1004 }
996 1005
997 run_unwind_frame ("Feval"); 1006 run_unwind_frame ("Feval");
998 } 1007 }