X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/018ba359ab456f6a43f3acea0c15df616aa0ad02..f3fbd1553534bb85c75baf891c0ca9aaa4c3fa6f:/src/xfaces.c

diff --git a/src/xfaces.c b/src/xfaces.c
index 476908e5b1..c9867c4ce1 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);
 	  }
     }