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
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);
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)))
{
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;
defsubr (&Sprimitive_undo);
defsubr (&Sundo_boundary);
}
+
+/* arch-tag: d546ee01-4aed-4ffb-bb8b-eefaae50d38a
+ (do not change this comment) */