comparison src/fns.c @ 30024:9fd285caeb51

(concat): While copying text properties, make each composition property value a copy.

30023:ec25786e4705

  if (!NILP (prev))
    XCDR (prev) = last_tail;

  if (num_textprops > 0)
    {
      for (argnum = 0; argnum < num_textprops; argnum++)
	{
	  this = args[textprops[argnum].argnum];
	  copy_text_properties (make_number (textprops[argnum].from),
				make_number (XSTRING (this)->size), this,
				make_number (textprops[argnum].to), val, Qnil);
	}
    }
  return val;
}


30024:9fd285caeb51

  if (!NILP (prev))
    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;
}