mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(concat): While copying text properties, make each composition

Browse Source 
property value a copy.
This commit is contained in:
Kenichi Handa 2000-07-04 07:38:15 +00:00
parent be17069b71
commit 33f3782446
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/fns.c
View File

@ -826,12 +826,22 @@ concat (nargs, args, target_type, last_special)
if (num_textprops > 0)
{
Lisp_Object props;
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);
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;