diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-03-25 18:31:36 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-03-25 18:31:36 +0000 |
| commit | d7b10f4c2efd05dfeb9526686cb76e1df70527bb (patch) | |
| tree | 900c2b3b9469bd8113c66e9bdc3c561944a2ea02 /src | |
| parent | 4972c36128d52df96dbb441a2785247fffe419db (diff) | |
| download | emacs-d7b10f4c2efd05dfeb9526686cb76e1df70527bb.tar.gz emacs-d7b10f4c2efd05dfeb9526686cb76e1df70527bb.tar.bz2 emacs-d7b10f4c2efd05dfeb9526686cb76e1df70527bb.zip | |
(Fmodify_frame_parameters, x_set_frame_parameters): Use XCAR/XCDR.
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++; |