Mercurial > emacs
diff 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 |
line wrap: on
line diff
--- a/src/undo.c Tue Feb 04 13:30:45 2003 +0000 +++ b/src/undo.c Tue Feb 04 14:56:31 2003 +0000 @@ -81,7 +81,7 @@ if (MODIFF <= SAVE_MODIFF) record_first_change (); - /* If we are just after an undo boundary, and + /* If we are just after an undo boundary, and point wasn't at start of deleted range, record where it was. */ if (at_boundary && last_point_position != pt @@ -175,7 +175,7 @@ if (NILP (pending_boundary)) pending_boundary = Fcons (Qnil, Qnil); - if (!BUFFERP (last_undo_buffer) + if (!BUFFERP (last_undo_buffer) || current_buffer != XBUFFER (last_undo_buffer)) Fundo_boundary (); XSETBUFFER (last_undo_buffer, current_buffer); @@ -312,7 +312,7 @@ If the first element is an undo boundary, skip past it. Skip, skip, skip the undo, skip, skip, skip the undo, - Skip, skip, skip the undo, skip to the undo bound'ry. + Skip, skip, skip the undo, skip to the undo bound'ry. (Get it? "Skip to my Loo?") */ if (CONSP (next) && NILP (XCAR (next))) { @@ -402,7 +402,7 @@ Lisp_Object next; int count = SPECPDL_INDEX (); register int arg; - + #if 0 /* This is a good feature, but would make undo-start unable to do what is expected. */ Lisp_Object tem;
