From 34348bd4e5c89fa0e440e37efa20be2a00c8fd9c Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Wed, 11 Jul 2012 09:19:44 +0200 Subject: * coding.c (Fdefine_coding_system_internal): Use XCAR/XCDR instead of Fcar/Fcdr if possible. * font.c (check_otf_features): Likewise. * fontset.c (Fnew_fontset): Likewise. * gnutls.c (Fgnutls_boot): Likewise. * minibuf.c (read_minibuf): Likewise. * msdos.c (IT_set_frame_parameters): Likewise. * xmenu.c (Fx_popup_dialog): Likewise. * w32menu.c (Fx_popup_dialog): Likewise. --- src/msdos.c | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src/msdos.c') diff --git a/src/msdos.c b/src/msdos.c index d75277e3866..d6a493a71d3 100644 --- a/src/msdos.c +++ b/src/msdos.c @@ -1620,9 +1620,7 @@ IT_set_frame_parameters (struct frame *f, Lisp_Object alist) i = 0; for (tail = alist; CONSP (tail); tail = XCDR (tail)) { - Lisp_Object elt; - - elt = Fcar (tail); + Lisp_Object elt = XCAR (tail); parms[i] = Fcar (elt); CHECK_SYMBOL (parms[i]); values[i] = Fcdr (elt); -- cgit v1.2.1