diff options
Diffstat (limited to 'src/textprop.c')
| -rw-r--r-- | src/textprop.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/textprop.c b/src/textprop.c index c7185f3daef..146ee9e97d9 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -1913,7 +1913,6 @@ Lisp_Object copy_text_properties (Lisp_Object start, Lisp_Object end, Lisp_Object src, Lisp_Object pos, Lisp_Object dest, Lisp_Object prop) { - USE_LOCAL_ALLOCA; INTERVAL i; Lisp_Object res; Lisp_Object stuff; @@ -1967,9 +1966,8 @@ copy_text_properties (Lisp_Object start, Lisp_Object end, Lisp_Object src, if (! NILP (plist)) /* Must defer modifications to the interval tree in case src and dest refer to the same string or buffer. */ - stuff = local_cons - (local_list3 (make_number (p), make_number (p + len), plist), - stuff); + stuff = Fcons (list3 (make_number (p), make_number (p + len), plist), + stuff); i = next_interval (i); if (!i) |