diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 3 | ||||
| -rw-r--r-- | src/frame.c | 8 |
2 files changed, 7 insertions, 4 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index e86aabb4ae5..6ebc93e66d8 100644 --- 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 b163be53f77..35d00e51552 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++; |