comparison src/textprop.c @ 9541:449e024f13be

(Fset_text_properties): Special case for getting rid of all properties of a string.

9540:cde03222210e

  props = validate_plist (props);

  if (NILP (object))
    XSETBUFFER (object, current_buffer);

  i = validate_interval_range (object, &start, &end, soft);
  if (NULL_INTERVAL_P (i))
    {
      /* If buffer has no props, and we want none, return now.  */
      if (NILP (props))
	return Qnil;

9541:449e024f13be

  props = validate_plist (props);

  if (NILP (object))
    XSETBUFFER (object, current_buffer);

  /* If we want no properties for a whole string,
     get rid of its intervals.  */
  if (NILP (props) && STRINGP (object)
      && XFASTINT (start) == 0
      && XFASTINT (end) == XSTRING (object)->size)
    {
      XSTRING (object)->intervals = 0;
      return Qt;
    }

  i = validate_interval_range (object, &start, &end, soft);

  if (NULL_INTERVAL_P (i))
    {
      /* If buffer has no props, and we want none, return now.  */
      if (NILP (props))
	return Qnil;