# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1206469896 0
# Node ID 7327632ad432b3bf1c3fef162e7a82d7064f765b
# Parent  81cc0380dd953a52934a12e7b0c08e8feb0980ba
(Fmodify_frame_parameters, x_set_frame_parameters): Use XCAR/XCDR.

diff -r 81cc0380dd95 -r 7327632ad432 src/ChangeLog
--- a/src/ChangeLog	Tue Mar 25 17:50:07 2008 +0000
+++ b/src/ChangeLog	Tue Mar 25 18:31:36 2008 +0000
@@ -1,5 +1,8 @@
 2008-03-25  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* frame.c (Fmodify_frame_parameters, x_set_frame_parameters):
+	Use XCAR/XCDR.
+
 	* process.h (struct Lisp_Process): Remove filter_multibyte.
 	* process.c (QCfilter_multibyte): Remove.
 	(setup_process_coding_systems): Don't use filter_multibyte.
diff -r 81cc0380dd95 -r 7327632ad432 src/frame.c
--- a/src/frame.c	Tue Mar 25 17:50:07 2008 +0000
+++ b/src/frame.c	Tue Mar 25 18:31:36 2008 +0000
@@ -2573,11 +2573,11 @@
       /* Extract parm names and values into those vectors.  */
 
       i = 0;
-      for (tail = alist; CONSP (tail); tail = Fcdr (tail))
+      for (tail = alist; CONSP (tail); tail = XCDR (tail))
 	{
 	  Lisp_Object elt;
 
-	  elt = Fcar (tail);
+	  elt = XCAR (tail);
 	  parms[i] = Fcar (elt);
 	  values[i] = Fcdr (elt);
 	  i++;
@@ -2956,11 +2956,11 @@
   /* Extract parm names and values into those vectors.  */
 
   i = 0;
-  for (tail = alist; CONSP (tail); tail = Fcdr (tail))
+  for (tail = alist; CONSP (tail); tail = XCDR (tail))
     {
       Lisp_Object elt;
 
-      elt = Fcar (tail);
+      elt = XCAR (tail);
       parms[i] = Fcar (elt);
       values[i] = Fcdr (elt);
       i++;