Use XCAR and XCDR instead of Fcar and Fcdr where possible.

[bpt/emacs.git] / src / callint.c

diff --git a/src/callint.c b/src/callint.c
index 1a99ca2..58e1a5b 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -205,7 +205,7 @@ fix_command (Lisp_Object input, Lisp_Object values)
              if (CONSP (elt))
                {
                  Lisp_Object presflag, carelt;
-                 carelt = Fcar (elt);
+                 carelt = XCAR (elt);
                  /* If it is (if X Y), look at Y.  */
                  if (EQ (carelt, Qif)
                      && EQ (Fnthcdr (make_number (3), elt), Qnil))