diff options
author | Jim Blandy <jimb@redhat.com> | 1992-01-13 21:48:08 +0000 |
---|---|---|
committer | Jim Blandy <jimb@redhat.com> | 1992-01-13 21:48:08 +0000 |
commit | bd5cd35fd8b585ad3d87f8be98b45a415fea22c0 (patch) | |
tree | 5d416f154f32b77026a495de37f12a05269095e5 /src/undo.c | |
parent | 254f294c2e37a22e04bff74fedfdc9b1fcc93b93 (diff) | |
download | emacs-bd5cd35fd8b585ad3d87f8be98b45a415fea22c0.tar.gz |
*** empty log message ***
Diffstat (limited to 'src/undo.c')
-rw-r--r-- | src/undo.c | 12 |
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); |