This file is part of GNU Emacs.
+GNU Emacs is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
GNU Emacs is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY. No author or distributor
-accepts responsibility to anyone for the consequences of using it
-or for whether it serves any particular purpose or works at all,
-unless he says so in writing. Refer to the GNU Emacs General Public
-License for full details.
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
-Everyone is granted permission to copy, modify and redistribute
-GNU Emacs, but only under the conditions described in the
-GNU Emacs General Public License. A copy of this license is
-supposed to have been given to you along with GNU Emacs so you
-can know your rights and responsibilities. It should be in a
-file named COPYING. Among other things, the copyright notice
-and this notice must be preserved on all copies. */
+You should have received a copy of the GNU General Public License
+along with GNU Emacs; see the file COPYING. If not, write to
+the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA. */
#include <config.h>
(It is possible to record an insertion before or after the fact
because we don't need to record the contents.) */
+void
record_insert (beg, length)
- Lisp_Object beg, length;
+ int beg, length;
{
Lisp_Object lbeg, lend;
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
if (CONSP (elt)
&& INTEGERP (XCONS (elt)->car)
&& INTEGERP (XCONS (elt)->cdr)
- && XINT (XCONS (elt)->cdr) == XINT (beg))
+ && XINT (XCONS (elt)->cdr) == beg)
{
- XSETINT (XCONS (elt)->cdr, XINT (beg) + XINT (length));
+ XSETINT (XCONS (elt)->cdr, beg + length);
return;
}
}
- lbeg = beg;
- XSETINT (lend, XINT (beg) + XINT (length));
+ XSETFASTINT (lbeg, beg);
+ XSETINT (lend, beg + length);
current_buffer->undo_list = Fcons (Fcons (lbeg, lend),
current_buffer->undo_list);
}
/* Record that a deletion is about to take place,
for LENGTH characters at location BEG. */
+void
record_delete (beg, length)
int beg, length;
{
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)
+ if (PT == beg + length)
XSETINT (sbeg, -beg);
else
- XFASTINT (sbeg) = beg;
- XFASTINT (lbeg) = beg;
- XFASTINT (lend) = beg + length;
+ XSETFASTINT (sbeg, beg);
+ XSETFASTINT (lbeg, beg);
+ XSETFASTINT (lend, beg + length);
/* If we are just after an undo boundary, and
point wasn't at start of deleted range, record where it was. */
current_buffer->undo_list);
}
+/* Record the fact that MARKER is about to be adjusted by ADJUSTMENT.
+ This is done only when a marker points within text being deleted,
+ because that's the only case where an automatic marker adjustment
+ won't be inverted automatically by undoing the buffer modification. */
+
+void
+record_marker_adjustment (marker, adjustment)
+ Lisp_Object marker;
+ int adjustment;
+{
+ if (EQ (current_buffer->undo_list, Qt))
+ return;
+
+ /* Allocate a cons cell to be the undo boundary after this command. */
+ if (NILP (pending_boundary))
+ pending_boundary = Fcons (Qnil, Qnil);
+
+ if (current_buffer != XBUFFER (last_undo_buffer))
+ Fundo_boundary ();
+ XSETBUFFER (last_undo_buffer, current_buffer);
+
+ current_buffer->undo_list
+ = Fcons (Fcons (marker, make_number (adjustment)),
+ current_buffer->undo_list);
+}
+
/* Record that a replacement is about to take place,
for LENGTH characters at location BEG.
The replacement does not change the number of characters. */
+void
record_change (beg, length)
int beg, length;
{
Record the file modification date so that when undoing this entry
we can tell whether it is obsolete because the file was saved again. */
+void
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);
- XFASTINT (high) = (current_buffer->modtime >> 16) & 0xffff;
- XFASTINT (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);
}
/* Record a change in property PROP (whose old value was VAL)
for LENGTH characters starting at position BEG in BUFFER. */
+void
record_property_change (beg, length, prop, value, buffer)
int beg, length;
Lisp_Object prop, value, buffer;
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)
- break;
+ if (mod_time != base_buffer->modtime)
+ continue;
#ifdef CLASH_DETECTION
Funlock_buffer ();
#endif /* CLASH_DETECTION */
error ("Changes to be undone are outside visible portion of buffer");
SET_PT (pos);
- /* Insert before markers so that if the mark is
- currently on the boundary of this deletion, it
- ends up on the other side of the now-undeleted
- text from point. Since undo doesn't even keep
- track of the mark, this isn't really necessary,
- but it may lead to better behavior in certain
- situations. */
- Finsert_before_markers (1, &membuf);
+ /* Now that we record marker adjustments
+ (caused by deletion) for undo,
+ we should always insert after markers,
+ so that undoing the marker adjustments
+ put the markers back in the right place. */
+ Finsert (1, &membuf);
SET_PT (pos);
}
}
+ else if (MARKERP (car) && INTEGERP (cdr))
+ {
+ /* (MARKER . INTEGER) means a marker MARKER
+ was adjusted by INTEGER. */
+ if (XMARKER (car)->buffer)
+ Fset_marker (car,
+ make_number (marker_position (car) - XINT (cdr)),
+ Fmarker_buffer (car));
+ }
}
}
arg--;
HCoop / bpt / emacs.git / blobdiff