comparison src/fns.c @ 35352:42b56dd8986e

(concat): Be sure to avoid putting the same `composition' property on the adjacent regions.

35351:5e8aeef6d306

    XCDR (prev) = last_tail;

  if (num_textprops > 0)
    {
      Lisp_Object props;

      for (argnum = 0; argnum < num_textprops; argnum++)
	{
	  this = args[textprops[argnum].argnum];
	  props = text_property_list (this,
				      make_number (0),
				      make_number (XSTRING (this)->size),
				      Qnil);
	  /* If successive arguments have properites, be sure that the
	     value of `composition' property be the copy.  */
	  if (argnum > 0
	      && textprops[argnum - 1].argnum + 1 == textprops[argnum].argnum)
	    make_composition_value_copy (props);
	  add_text_properties_from_list (val, props,
					 make_number (textprops[argnum].to));
	}
    }
  return val;
}


35352:42b56dd8986e

    XCDR (prev) = last_tail;

  if (num_textprops > 0)
    {
      Lisp_Object props;
      int last_to_end = -1;

      for (argnum = 0; argnum < num_textprops; argnum++)
	{
	  this = args[textprops[argnum].argnum];
	  props = text_property_list (this,
				      make_number (0),
				      make_number (XSTRING (this)->size),
				      Qnil);
	  /* If successive arguments have properites, be sure that the
	     value of `composition' property be the copy.  */
	  if (last_to_end == textprops[argnum].to)
	    make_composition_value_copy (props);
	  add_text_properties_from_list (val, props,
					 make_number (textprops[argnum].to));
	  last_to_end = textprops[argnum].to + XSTRING (this)->size;
	}
    }
  return val;
}