From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 12 Oct 2001 01:43:29 +0000 (+0000)
Subject: (Fprimitive_undo): Use XCAR/XCDR.
X-Git-Tag: ttn-vms-21-2-B4~19555
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c3b09bbf666e39d22dd4f05092a315bbb285a525;p=emacs.git

(Fprimitive_undo): Use XCAR/XCDR.
---

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