diff src/undo.c @ 485:8c615e453683

*** empty log message ***

--- a/src/undo.c	Mon Jan 13 21:48:03 1992 +0000
+++ b/src/undo.c	Mon Jan 13 21:48:08 1992 +0000
@@ -127,7 +127,7 @@
   if (EQ (current_buffer->undo_list, Qt))
     return Qnil;
   tem = Fcar (current_buffer->undo_list);
-  if (!NULL (tem))
+  if (!NILP (tem))
     current_buffer->undo_list = Fcons (Qnil, current_buffer->undo_list);
   return Qnil;
 }
@@ -197,7 +197,7 @@
 	 either before or after it.  The lower threshold, MINSIZE,
 	 tells us to truncate after it.  If its size pushes past
 	 the higher threshold MAXSIZE as well, we truncate before it.  */
-      if (NULL (elt))
+      if (NILP (elt))
 	{
 	  if (size_so_far > maxsize)
 	    break;
@@ -222,11 +222,11 @@
     }
 
   /* If we scanned the whole list, it is short enough; don't change it.  */
-  if (NULL (next))
+  if (NILP (next))
     return list;
 
   /* Truncate at the boundary where we decided to truncate.  */
-  if (!NULL (last_boundary))
+  if (!NILP (last_boundary))
     {
       XCONS (last_boundary)->cdr = Qnil;
       return list;
@@ -249,7 +249,7 @@
   /* If the head of the list is a boundary, it is the boundary
      preceding this command.  Get rid of it and don't count it.  */
   tem = Fcar (list);
-  if (NULL (tem))
+  if (NILP (tem))
     list = Fcdr (list);
 #endif
 
@@ -260,7 +260,7 @@
 	  Lisp_Object next, car, cdr;
 	  next = Fcar (list);
 	  list = Fcdr (list);
-	  if (NULL (next))
+	  if (NILP (next))
 	    break;
 	  car = Fcar (next);
 	  cdr = Fcdr (next);