Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3bd00f3b
Commit
3bd00f3b
authored
Jan 17, 2001
by
Kenichi Handa
Browse files
(concat): Be sure to avoid putting the same `composition'
property on the adjacent regions.
parent
2eda09b5
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
2 deletions
+3
-2
src/fns.c
src/fns.c
+3
-2
No files found.
src/fns.c
View file @
3bd00f3b
...
...
@@ -830,6 +830,7 @@ concat (nargs, args, target_type, last_special)
if
(
num_textprops
>
0
)
{
Lisp_Object
props
;
int
last_to_end
=
-
1
;
for
(
argnum
=
0
;
argnum
<
num_textprops
;
argnum
++
)
{
...
...
@@ -840,11 +841,11 @@ concat (nargs, args, target_type, last_special)
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)
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
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment