comparison src/eval.c @ 878:5b1c5b4286e7

*** empty log message ***

877:e0dde8b90613

static int
wants_debugger (list, conditions)
     Lisp_Object list, conditions;
{
  static int looking = 0;

  if (looking)
    {
      /* We got an error while looking in LIST.  */
      looking = 0;
      return 1;
    }

  if (NILP (list))
    return 0;
  if (! CONSP (list))
    return 1;

  looking = 1;
  while (!NILP (conditions))
    {
      Lisp_Object tem;
      tem = Fmemq (XCONS (conditions)->car, list);
      if (! NILP (tem))
	{
	  looking = 0;
	  return 1;
	}
      conditions = XCONS (conditions)->cdr;
    }
}

/* Value of Qlambda means we have called debugger and user has continued.
   Store value returned from debugger into *DEBUGGER_VALUE_PTR.  */

  if (EQ (handlers, Qerror))  /* error is used similarly, but means display a backtrace too */
    {
      if (wants_debugger (Vstack_trace_on_error, conditions))
	internal_with_output_to_temp_buffer ("*Backtrace*", Fbacktrace, Qnil);
      if (!entering_debugger
	  && ((EQ (sig, Qquit) && debug_on_quit)
	      || wants_debugger (Vdebug_on_error, conditions)))
	{
	  int count = specpdl_ptr - specpdl;
	  specbind (Qdebug_on_error, Qnil);
	  *debugger_value_ptr =
	    call_debugger (Fcons (Qerror,

878:5b1c5b4286e7

static int
wants_debugger (list, conditions)
     Lisp_Object list, conditions;
{
  if (NILP (list))
    return 0;
  if (! CONSP (list))
    return 1;

  while (CONSP (conditions))
    {
      Lisp_Object this, tail;
      this = XCONS (conditions)->car;
      for (tail = list; CONSP (tail); tail = XCONS (tail)->cdr)
	if (EQ (XCONS (tail)->car, this))
	  return 1;
      conditions = XCONS (conditions)->cdr;
    }
  return 0;
}

/* Value of Qlambda means we have called debugger and user has continued.
   Store value returned from debugger into *DEBUGGER_VALUE_PTR.  */

  if (EQ (handlers, Qerror))  /* error is used similarly, but means display a backtrace too */
    {
      if (wants_debugger (Vstack_trace_on_error, conditions))
	internal_with_output_to_temp_buffer ("*Backtrace*", Fbacktrace, Qnil);
      if (!entering_debugger
	  && (EQ (sig, Qquit) ? debug_on_quit
	      : wants_debugger (Vdebug_on_error, conditions)))
	{
	  int count = specpdl_ptr - specpdl;
	  specbind (Qdebug_on_error, Qnil);
	  *debugger_value_ptr =
	    call_debugger (Fcons (Qerror,