comparison src/textprop.c @ 26605:46168cb41ba0

(set_text_properties): New function. Like Fset_text_properties, but with additional parameter SIGNAL_AFTER_CHANGE_P. If that is nil, don't signal after changes. (Fset_text_properties): Use it.

26604:381c4e70f9fb

The optional fourth argument, OBJECT,\n\
is the string or buffer containing the text.")
  (start, end, properties, object)
     Lisp_Object start, end, properties, object;
{
  register INTERVAL i, unchanged;
  register INTERVAL prev_changed = NULL_INTERVAL;
  register int s, len;
  Lisp_Object ostart, oend;

      if (LENGTH (i) > len)
	{
	  copy_properties (unchanged, i);
	  i = split_interval_left (i, len);
	  set_properties (properties, i, object);
	  if (BUFFERP (object))
	    signal_after_change (XINT (start), XINT (end) - XINT (start),
				 XINT (end) - XINT (start));

	  return Qt;
	}

      set_properties (properties, i, object);

      if (LENGTH (i) == len)
	{
	  if (BUFFERP (object))
	    signal_after_change (XINT (start), XINT (end) - XINT (start),
				 XINT (end) - XINT (start));

	  return Qt;
	}

	     merge the intervals, so as to make the undo records
	     and cause redisplay to happen.  */
	  set_properties (properties, i, object);
	  if (!NULL_INTERVAL_P (prev_changed))
	    merge_interval_left (i);
	  if (BUFFERP (object))
	    signal_after_change (XINT (start), XINT (end) - XINT (start),
				 XINT (end) - XINT (start));
	  return Qt;
	}

	prev_changed = i = merge_interval_left (i);

      i = next_interval (i);
    }

  if (BUFFERP (object))
    signal_after_change (XINT (start), XINT (end) - XINT (start),
			 XINT (end) - XINT (start));
  return Qt;
}

26605:46168cb41ba0

The optional fourth argument, OBJECT,\n\
is the string or buffer containing the text.")
  (start, end, properties, object)
     Lisp_Object start, end, properties, object;
{
  return set_text_properties (start, end, properties, object, Qt);
}


/* Replace properties of text from START to END with new list of
   properties PROPERTIES.  OBJECT is the buffer or string containing
   the text.  OBJECT nil means use the current buffer.
   SIGNAL_AFTER_CHANGE_P nil means don't signal after changes.  Value
   is non-nil if properties were replaced; it is nil if there weren't
   any properties to replace.  */

Lisp_Object
set_text_properties (start, end, properties, object, signal_after_change_p)
     Lisp_Object start, end, properties, object, signal_after_change_p;
{
  register INTERVAL i, unchanged;
  register INTERVAL prev_changed = NULL_INTERVAL;
  register int s, len;
  Lisp_Object ostart, oend;

      if (LENGTH (i) > len)
	{
	  copy_properties (unchanged, i);
	  i = split_interval_left (i, len);
	  set_properties (properties, i, object);
	  if (BUFFERP (object) && !NILP (signal_after_change_p))
	    signal_after_change (XINT (start), XINT (end) - XINT (start),
				 XINT (end) - XINT (start));

	  return Qt;
	}

      set_properties (properties, i, object);

      if (LENGTH (i) == len)
	{
	  if (BUFFERP (object) && !NILP (signal_after_change_p))
	    signal_after_change (XINT (start), XINT (end) - XINT (start),
				 XINT (end) - XINT (start));

	  return Qt;
	}

	     merge the intervals, so as to make the undo records
	     and cause redisplay to happen.  */
	  set_properties (properties, i, object);
	  if (!NULL_INTERVAL_P (prev_changed))
	    merge_interval_left (i);
	  if (BUFFERP (object) && !NILP (signal_after_change_p))
	    signal_after_change (XINT (start), XINT (end) - XINT (start),
				 XINT (end) - XINT (start));
	  return Qt;
	}

	prev_changed = i = merge_interval_left (i);

      i = next_interval (i);
    }

  if (BUFFERP (object) && !NILP (signal_after_change_p))
    signal_after_change (XINT (start), XINT (end) - XINT (start),
			 XINT (end) - XINT (start));
  return Qt;
}