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

with lisp system changes.

1 files changed, 3 insertions, 3 deletions

diff --git a/src/xfaces.c b/src/xfaces.c
index 476908e5b15..c9867c4ce1f 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -2684,7 +2684,7 @@ remove_duplicates (list)
     {
       Lisp_Object next = XCDR (tail);
       if (!NILP (Fequal (XCAR (next), XCAR (tail))))
-        XCDR (tail) = XCDR (next);
+        XSETCDR (tail, XCDR (next));
       else
         tail = XCDR (tail);
     }
@@ -4199,8 +4199,8 @@ FRAME 0 means change the face on all frames, and change the default
           {
             Lisp_Object cons;
             cons = XCAR (Vparam_value_alist);
-            XCAR (cons) = param;
-            XCDR (cons) = value;
+            XSETCAR (cons, param);
+            XSETCDR (cons, value);
             Fmodify_frame_parameters (frame, Vparam_value_alist);
           }
     }