diff src/eval.c @ 105127:fb0a1e29af2a

(find_handler_clause): Make stack-trace-on-error work in batch mode (bug#4228).

--- a/src/eval.c	Sun Sep 20 16:44:50 2009 +0000
+++ b/src/eval.c	Sun Sep 20 17:05:00 2009 +0000
@@ -1945,14 +1945,13 @@
 	{
 	  max_lisp_eval_depth += 15;
 	  max_specpdl_size++;
-#ifdef PROTOTYPES
-	  internal_with_output_to_temp_buffer ("*Backtrace*",
-					       (Lisp_Object (*) (Lisp_Object)) Fbacktrace,
-					       Qnil);
-#else
-	  internal_with_output_to_temp_buffer ("*Backtrace*",
-					       Fbacktrace, Qnil);
-#endif
+	  if (noninteractive)
+	    Fbacktrace ();
+	  else
+	    internal_with_output_to_temp_buffer
+	      ("*Backtrace*",
+	       (Lisp_Object (*) (Lisp_Object)) Fbacktrace,
+	       Qnil);
 	  max_specpdl_size--;
 	  max_lisp_eval_depth -= 15;
 	}