(Fmodify_frame_parameters, x_set_frame_parameters): Use XCAR/XCDR.

diff --git a/src/ChangeLog b/src/ChangeLog
index e86aabb4ae5871049226b9c36d03bcfa5b867521..6ebc93e66d8a583a68ec42f9dae60f1a60360e07 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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 --git a/src/frame.c b/src/frame.c
index b163be53f770482333ce8fd68683c313f69313f1..35d00e51552f59772a524344c94ffe4bb710ad60 100644 (file)
--- a/src/frame.c
+++ b/src/frame.c
@@ -2573,11 +2573,11 @@ enabled such bindings for that variable with `make-variable-frame-local'.  */)
       /* 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 @@ x_set_frame_parameters (f, alist)
   /* 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++;