comparison src/callint.c @ 6494:00475922df29

(check_mark, Fcall_interactively): Use assignment, not initialization.

6493:33a461f14903

    = {"", "point", "mark", "region-beginning", "region-end"};

static void
check_mark ()
{
  Lisp_Object tem = Fmarker_buffer (current_buffer->mark);
  if (NILP (tem) || (XBUFFER (tem) != current_buffer))
    error ("The mark is not set now");
  if (!NILP (Vtransient_mark_mode) && NILP (Vmark_even_if_inactive)
      && NILP (current_buffer->mark_active))
    Fsignal (Qmark_inactive, Qnil);

	  if (!NILP (current_buffer->read_only))
	    Fbarf_if_buffer_read_only ();
	}
      else if (*string == '@')
	{
	  Lisp_Object event =
	    XVECTOR (this_command_keys)->contents[next_event];

	  if (EVENT_HAS_PARAMETERS (event)
	      && XTYPE (event = XCONS (event)->cdr) == Lisp_Cons
	      && XTYPE (event = XCONS (event)->car) == Lisp_Cons
	      && XTYPE (event = XCONS (event)->car) == Lisp_Window)
	    {

6494:00475922df29

    = {"", "point", "mark", "region-beginning", "region-end"};

static void
check_mark ()
{
  Lisp_Object tem;
  tem = Fmarker_buffer (current_buffer->mark);
  if (NILP (tem) || (XBUFFER (tem) != current_buffer))
    error ("The mark is not set now");
  if (!NILP (Vtransient_mark_mode) && NILP (Vmark_even_if_inactive)
      && NILP (current_buffer->mark_active))
    Fsignal (Qmark_inactive, Qnil);

	  if (!NILP (current_buffer->read_only))
	    Fbarf_if_buffer_read_only ();
	}
      else if (*string == '@')
	{
	  Lisp_Object event;

	  event = XVECTOR (this_command_keys)->contents[next_event];
	  if (EVENT_HAS_PARAMETERS (event)
	      && XTYPE (event = XCONS (event)->cdr) == Lisp_Cons
	      && XTYPE (event = XCONS (event)->car) == Lisp_Cons
	      && XTYPE (event = XCONS (event)->car) == Lisp_Window)
	    {