* 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.

1 files changed, 2 insertions, 2 deletions

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);