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/coding.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/coding.c')

diff --git a/src/coding.c b/src/coding.c
index 134ebf2ab73..d9fcc634b77 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -9795,7 +9795,7 @@ usage: (define-coding-system-internal ...)  */)
 	{
 	  int from, to;
 
-	  val = Fcar (tail);
+	  val = XCAR (tail);
 	  if (INTEGERP (val))
 	    {
 	      if (! (0 <= XINT (val) && XINT (val) <= 255))
@@ -9897,7 +9897,7 @@ usage: (define-coding-system-internal ...)  */)
 	  int id;
 	  Lisp_Object tmp1;
 
-	  val = Fcar (tail);
+	  val = XCAR (tail);
 	  CHECK_CONS (val);
 	  tmp1 = XCAR (val);
 	  CHECK_CHARSET_GET_ID (tmp1, id);
-- 
cgit v1.2.1