Mercurial > emacs
comparison src/undo.c @ 241:f108a48f6e86
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Thu, 11 Apr 1991 21:20:53 +0000 |
| parents | dbc50aaa4f08 |
| children | 8c615e453683 |
comparison
equal
deleted
inserted
replaced
| 240:939deddfb6b2 | 241:f108a48f6e86 |
|---|---|
| 149 prev = Qnil; | 149 prev = Qnil; |
| 150 next = list; | 150 next = list; |
| 151 last_boundary = Qnil; | 151 last_boundary = Qnil; |
| 152 | 152 |
| 153 /* Always preserve at least the most recent undo record. | 153 /* Always preserve at least the most recent undo record. |
| 154 If the first element is an undo boundary, skip past it. */ | 154 If the first element is an undo boundary, skip past it. |
| 155 | |
| 156 Skip, skip, skip the undo, skip, skip, skip the undo, | |
| 157 Skip, skip, skip the undo, skip to the undo bound'ry. */ | |
| 155 if (XTYPE (next) == Lisp_Cons | 158 if (XTYPE (next) == Lisp_Cons |
| 156 && XCONS (next)->car == Qnil) | 159 && XCONS (next)->car == Qnil) |
| 157 { | 160 { |
| 158 /* Add in the space occupied by this element and its chain link. */ | 161 /* Add in the space occupied by this element and its chain link. */ |
| 159 size_so_far += sizeof (struct Lisp_Cons); | 162 size_so_far += sizeof (struct Lisp_Cons); |