Fundo_boundary ();
XSETBUFFER (last_undo_buffer, current_buffer);
- if (MODIFF <= current_buffer->save_modified)
+ if (MODIFF <= SAVE_MODIFF)
record_first_change ();
/* If this is following another insertion and consecutive with it
at_boundary = (CONSP (current_buffer->undo_list)
&& NILP (XCONS (current_buffer->undo_list)->car));
- if (MODIFF <= current_buffer->save_modified)
+ if (MODIFF <= SAVE_MODIFF)
record_first_change ();
if (point == beg + length)
record_first_change ()
{
Lisp_Object high, low;
+ struct buffer *base_buffer = current_buffer;
if (EQ (current_buffer->undo_list, Qt))
return;
Fundo_boundary ();
XSETBUFFER (last_undo_buffer, current_buffer);
- XSETFASTINT (high, (current_buffer->modtime >> 16) & 0xffff);
- XSETFASTINT (low, current_buffer->modtime & 0xffff);
+ if (base_buffer->base_buffer)
+ base_buffer = base_buffer->base_buffer;
+
+ XSETFASTINT (high, (base_buffer->modtime >> 16) & 0xffff);
+ XSETFASTINT (low, base_buffer->modtime & 0xffff);
current_buffer->undo_list = Fcons (Fcons (Qt, Fcons (high, low)), current_buffer->undo_list);
}
if (boundary)
Fundo_boundary ();
- if (MODIFF <= current_buffer->save_modified)
+ if (MODIFF <= SAVE_MODIFF)
record_first_change ();
XSETINT (lbeg, beg);
/* Element (t high . low) records previous modtime. */
Lisp_Object high, low;
int mod_time;
+ struct buffer *base_buffer = current_buffer;
high = Fcar (cdr);
low = Fcdr (cdr);
mod_time = (XFASTINT (high) << 16) + XFASTINT (low);
+
+ if (current_buffer->base_buffer)
+ base_buffer = current_buffer->base_buffer;
+
/* If this records an obsolete save
(not matching the actual disk file)
then don't mark unmodified. */
- if (mod_time != current_buffer->modtime)
+ if (mod_time != base_buffer->modtime)
break;
#ifdef CLASH_DETECTION
Funlock_buffer ();