Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting

with lisp system changes.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/textprop.c b/src/textprop.c
index 0cb09791f5e..b43503dfdb8 100644
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -1738,7 +1738,7 @@ extend_property_ranges (list, old_end, new_end)
       end = XCAR (XCDR (item));
 
       if (EQ (end, old_end))
-        XCAR (XCDR (item)) = new_end;
+        XSETCAR (XCDR (item), new_end);
     }
 }