comparison src/textprop.c @ 70129:af8798ce814c

(Fremove_list_of_text_properties): Ensure modify_region is called only when buffer is modified and that signal_after_change is allways called in that case.

70128:404967fdf7c4

	  i = split_interval_right (unchanged, s - unchanged->position);
	  copy_properties (unchanged, i);
	}
    }

  if (BUFFERP (object))
    modify_region (XBUFFER (object), XINT (start), XINT (end));

  /* We are at the beginning of an interval, with len to scan */
  for (;;)
    {
      if (i == 0)
	abort ();

      if (LENGTH (i) >= len)
	{
	  if (! interval_has_some_properties_list (properties, i))
	    return modified ? Qt : Qnil;

	  if (LENGTH (i) == len)
	    {
	      remove_properties (Qnil, properties, i, object);
	      if (BUFFERP (object))
		signal_after_change (XINT (start), XINT (end) - XINT (start),
				     XINT (end) - XINT (start));
	      return Qt;

	  /* i has the properties, and goes past the change limit */
	  unchanged = i;
	  i = split_interval_left (i, len);
	  copy_properties (unchanged, i);
	  remove_properties (Qnil, properties, i, object);
	  if (BUFFERP (object))
	    signal_after_change (XINT (start), XINT (end) - XINT (start),
				 XINT (end) - XINT (start));
	  return Qt;
	}

      len -= LENGTH (i);
      modified += remove_properties (Qnil, properties, i, object);
      i = next_interval (i);
    }
}

DEFUN ("text-property-any", Ftext_property_any,

70129:af8798ce814c

	  i = split_interval_right (unchanged, s - unchanged->position);
	  copy_properties (unchanged, i);
	}
    }

  /* We are at the beginning of an interval, with len to scan.
     The flag `modified' records if changes have been made.
     When object is a buffer, we must call modify_region before changes are
     made and signal_after_change when we are done.
     We call modify_region before calling remove_properties iff modified == 0,
     and we call signal_after_change before returning iff modified != 0. */
  for (;;)
    {
      if (i == 0)
	abort ();

      if (LENGTH (i) >= len)
	{
	  if (! interval_has_some_properties_list (properties, i))
	    if (modified)
	      {
		if (BUFFERP (object))
		  signal_after_change (XINT (start), XINT (end) - XINT (start),
				       XINT (end) - XINT (start));
		return Qt;
	      }
	    else
	      return Qnil;

	  if (LENGTH (i) == len)
	    {
	      if (!modified && BUFFERP (object))
		modify_region (XBUFFER (object), XINT (start), XINT (end));
	      remove_properties (Qnil, properties, i, object);
	      if (BUFFERP (object))
		signal_after_change (XINT (start), XINT (end) - XINT (start),
				     XINT (end) - XINT (start));
	      return Qt;

	  /* i has the properties, and goes past the change limit */
	  unchanged = i;
	  i = split_interval_left (i, len);
	  copy_properties (unchanged, i);
	  if (!modified && BUFFERP (object))
	    modify_region (XBUFFER (object), XINT (start), XINT (end));
	  remove_properties (Qnil, properties, i, object);
	  if (BUFFERP (object))
	    signal_after_change (XINT (start), XINT (end) - XINT (start),
				 XINT (end) - XINT (start));
	  return Qt;
	}

      if (interval_has_some_properties_list (properties, i))
	{
	  if (!modified && BUFFERP (object))
	    modify_region (XBUFFER (object), XINT (start), XINT (end));
	  remove_properties (Qnil, properties, i, object);
	  modified = 1;
	}
      len -= LENGTH (i);
      i = next_interval (i);
    }
}

DEFUN ("text-property-any", Ftext_property_any,