From d7b10f4c2efd05dfeb9526686cb76e1df70527bb Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 25 Mar 2008 18:31:36 +0000 Subject: [PATCH] (Fmodify_frame_parameters, x_set_frame_parameters): Use XCAR/XCDR. --- src/ChangeLog | 3 +++ src/frame.c | 8 ++++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index e86aabb4ae..6ebc93e66d 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,8 @@ 2008-03-25 Stefan Monnier + * 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 b163be53f7..35d00e5155 100644 --- 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++; -- 2.39.2