Mercurial > emacs
comparison src/frame.c @ 93203:7327632ad432
(Fmodify_frame_parameters, x_set_frame_parameters): Use XCAR/XCDR.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 25 Mar 2008 18:31:36 +0000 |
| parents | ad6ac471fdea |
| children | ed10c3092847 |
comparison
equal
deleted
inserted
replaced
| 93202:81cc0380dd95 | 93203:7327632ad432 |
|---|---|
| 2571 = (Lisp_Object *) alloca (length * sizeof (Lisp_Object)); | 2571 = (Lisp_Object *) alloca (length * sizeof (Lisp_Object)); |
| 2572 | 2572 |
| 2573 /* Extract parm names and values into those vectors. */ | 2573 /* Extract parm names and values into those vectors. */ |
| 2574 | 2574 |
| 2575 i = 0; | 2575 i = 0; |
| 2576 for (tail = alist; CONSP (tail); tail = Fcdr (tail)) | 2576 for (tail = alist; CONSP (tail); tail = XCDR (tail)) |
| 2577 { | 2577 { |
| 2578 Lisp_Object elt; | 2578 Lisp_Object elt; |
| 2579 | 2579 |
| 2580 elt = Fcar (tail); | 2580 elt = XCAR (tail); |
| 2581 parms[i] = Fcar (elt); | 2581 parms[i] = Fcar (elt); |
| 2582 values[i] = Fcdr (elt); | 2582 values[i] = Fcdr (elt); |
| 2583 i++; | 2583 i++; |
| 2584 } | 2584 } |
| 2585 | 2585 |
| 2954 values = (Lisp_Object *) alloca (i * sizeof (Lisp_Object)); | 2954 values = (Lisp_Object *) alloca (i * sizeof (Lisp_Object)); |
| 2955 | 2955 |
| 2956 /* Extract parm names and values into those vectors. */ | 2956 /* Extract parm names and values into those vectors. */ |
| 2957 | 2957 |
| 2958 i = 0; | 2958 i = 0; |
| 2959 for (tail = alist; CONSP (tail); tail = Fcdr (tail)) | 2959 for (tail = alist; CONSP (tail); tail = XCDR (tail)) |
| 2960 { | 2960 { |
| 2961 Lisp_Object elt; | 2961 Lisp_Object elt; |
| 2962 | 2962 |
| 2963 elt = Fcar (tail); | 2963 elt = XCAR (tail); |
| 2964 parms[i] = Fcar (elt); | 2964 parms[i] = Fcar (elt); |
| 2965 values[i] = Fcdr (elt); | 2965 values[i] = Fcdr (elt); |
| 2966 i++; | 2966 i++; |
| 2967 } | 2967 } |
| 2968 /* TAIL and ALIST are not used again below here. */ | 2968 /* TAIL and ALIST are not used again below here. */ |