Mercurial > emacs
comparison src/undo.c @ 49600:23a1cea22d13
Trailing whitespace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 14:56:31 +0000 |
| parents | eb8f8ac018c9 |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49599:5ade352e8d1c | 49600:23a1cea22d13 |
|---|---|
| 79 at_boundary = 1; | 79 at_boundary = 1; |
| 80 | 80 |
| 81 if (MODIFF <= SAVE_MODIFF) | 81 if (MODIFF <= SAVE_MODIFF) |
| 82 record_first_change (); | 82 record_first_change (); |
| 83 | 83 |
| 84 /* If we are just after an undo boundary, and | 84 /* If we are just after an undo boundary, and |
| 85 point wasn't at start of deleted range, record where it was. */ | 85 point wasn't at start of deleted range, record where it was. */ |
| 86 if (at_boundary | 86 if (at_boundary |
| 87 && last_point_position != pt | 87 && last_point_position != pt |
| 88 /* If we're called from batch mode, this could be nil. */ | 88 /* If we're called from batch mode, this could be nil. */ |
| 89 && BUFFERP (last_point_position_buffer) | 89 && BUFFERP (last_point_position_buffer) |
| 173 | 173 |
| 174 /* Allocate a cons cell to be the undo boundary after this command. */ | 174 /* Allocate a cons cell to be the undo boundary after this command. */ |
| 175 if (NILP (pending_boundary)) | 175 if (NILP (pending_boundary)) |
| 176 pending_boundary = Fcons (Qnil, Qnil); | 176 pending_boundary = Fcons (Qnil, Qnil); |
| 177 | 177 |
| 178 if (!BUFFERP (last_undo_buffer) | 178 if (!BUFFERP (last_undo_buffer) |
| 179 || current_buffer != XBUFFER (last_undo_buffer)) | 179 || current_buffer != XBUFFER (last_undo_buffer)) |
| 180 Fundo_boundary (); | 180 Fundo_boundary (); |
| 181 XSETBUFFER (last_undo_buffer, current_buffer); | 181 XSETBUFFER (last_undo_buffer, current_buffer); |
| 182 | 182 |
| 183 current_buffer->undo_list | 183 current_buffer->undo_list |
| 310 | 310 |
| 311 /* Always preserve at least the most recent undo record. | 311 /* Always preserve at least the most recent undo record. |
| 312 If the first element is an undo boundary, skip past it. | 312 If the first element is an undo boundary, skip past it. |
| 313 | 313 |
| 314 Skip, skip, skip the undo, skip, skip, skip the undo, | 314 Skip, skip, skip the undo, skip, skip, skip the undo, |
| 315 Skip, skip, skip the undo, skip to the undo bound'ry. | 315 Skip, skip, skip the undo, skip to the undo bound'ry. |
| 316 (Get it? "Skip to my Loo?") */ | 316 (Get it? "Skip to my Loo?") */ |
| 317 if (CONSP (next) && NILP (XCAR (next))) | 317 if (CONSP (next) && NILP (XCAR (next))) |
| 318 { | 318 { |
| 319 /* Add in the space occupied by this element and its chain link. */ | 319 /* Add in the space occupied by this element and its chain link. */ |
| 320 size_so_far += sizeof (struct Lisp_Cons); | 320 size_so_far += sizeof (struct Lisp_Cons); |
| 400 { | 400 { |
| 401 struct gcpro gcpro1, gcpro2; | 401 struct gcpro gcpro1, gcpro2; |
| 402 Lisp_Object next; | 402 Lisp_Object next; |
| 403 int count = SPECPDL_INDEX (); | 403 int count = SPECPDL_INDEX (); |
| 404 register int arg; | 404 register int arg; |
| 405 | 405 |
| 406 #if 0 /* This is a good feature, but would make undo-start | 406 #if 0 /* This is a good feature, but would make undo-start |
| 407 unable to do what is expected. */ | 407 unable to do what is expected. */ |
| 408 Lisp_Object tem; | 408 Lisp_Object tem; |
| 409 | 409 |
| 410 /* If the head of the list is a boundary, it is the boundary | 410 /* If the head of the list is a boundary, it is the boundary |