*** empty log message ***

1 files changed, 6 insertions, 6 deletions

diff --git a/src/undo.c b/src/undo.c
index 2993dc77d5e..852771764f1 100644
--- a/src/undo.c
+++ b/src/undo.c
@@ -127,7 +127,7 @@ but another undo command will undo to the previous boundary.")
   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 @@ truncate_undo_list (list, minsize, maxsize)
          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 @@ truncate_undo_list (list, minsize, maxsize)
     }
 
   /* 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 @@ Return what remains of the list.")
   /* 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 @@ Return what remains of the list.")
           Lisp_Object next, car, cdr;
           next = Fcar (list);
           list = Fcdr (list);
-          if (NULL (next))
+          if (NILP (next))
             break;
           car = Fcar (next);
           cdr = Fcdr (next);