comparison src/eval.c @ 62980:5b94f4660d9d

(unbind_to): Preserve value of Vquit_flag.

62979:c79b5010b654

Lisp_Object
unbind_to (count, value)
     int count;
     Lisp_Object value;
{
  int quitf = !NILP (Vquit_flag);
  struct gcpro gcpro1;

  GCPRO1 (value);
  Vquit_flag = Qnil;

  while (specpdl_ptr != specpdl + count)
    {
      /* Copy the binding, and decrement specpdl_ptr, before we do

	  else
	    set_internal (this_binding.symbol, this_binding.old_value, 0, 1);
	}
    }

  if (NILP (Vquit_flag) && quitf)
    Vquit_flag = Qt;

  UNGCPRO;
  return value;
}


62980:5b94f4660d9d

Lisp_Object
unbind_to (count, value)
     int count;
     Lisp_Object value;
{
  Lisp_Object quitf = Vquit_flag;
  struct gcpro gcpro1, gcpro2;

  GCPRO2 (value, quitf);
  Vquit_flag = Qnil;

  while (specpdl_ptr != specpdl + count)
    {
      /* Copy the binding, and decrement specpdl_ptr, before we do

	  else
	    set_internal (this_binding.symbol, this_binding.old_value, 0, 1);
	}
    }

  if (NILP (Vquit_flag) && !NILP (quitf))
    Vquit_flag = quitf;

  UNGCPRO;
  return value;
}