From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 3 Feb 1996 18:07:27 +0000 (+0000)
Subject: (record_marker_adjustment): New function.
X-Git-Tag: emacs-19.34~1380
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=714bced97609934cef99d8fa674a0a5cab20d9e3;p=emacs.git

(record_marker_adjustment): New function.
(Fprimitive_undo): Handle marker-adjustment elements.
---

diff --git a/src/undo.c b/src/undo.c
index 0e6116500a4..d2cc1d2dcd4 100644
--- a/src/undo.c
+++ b/src/undo.c
@@ -128,6 +128,31 @@ record_delete (beg, length)
 	     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.  */
+
+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.  */
@@ -463,6 +488,15 @@ Return what remains of the list.")
 		      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--;