(Fprimitive_undo): Use XCAR/XCDR.

1 files changed, 5 insertions, 5 deletions

diff --git a/src/undo.c b/src/undo.c
index 83c2327a8db..b664cf3c61f 100644
--- a/src/undo.c
+++ b/src/undo.c
@@ -422,10 +422,10 @@ Return what remains of the list.")
 
   while (arg > 0)
     {
-      while (1)
+      while (CONSP (list))
         {
-          next = Fcar (list);
-          list = Fcdr (list);
+          next = XCAR (list);
+          list = XCDR (list);
           /* Exit inner loop at undo boundary.  */
           if (NILP (next))
             break;
@@ -436,8 +436,8 @@ Return what remains of the list.")
             {
               Lisp_Object car, cdr;
 
-              car = Fcar (next);
-              cdr = Fcdr (next);
+              car = XCAR (next);
+              cdr = XCDR (next);
               if (EQ (car, Qt))
                 {
                   /* Element (t high . low) records previous modtime.  */