# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1200825236 0
# Node ID c250fe62d36e7ee2ee6a2f5fb52714ffca46311a
# Parent  1bb83c2fe524ffdd1c2cf14a665b19c3d4b809dd
(undo_inhibit_record_point): New variable.
(syms_of_undo): Initialize it.
(record_point): Don't record point when undo_inhibit_record_point
is set.

diff -r 1bb83c2fe524 -r c250fe62d36e src/undo.c
--- a/src/undo.c	Sun Jan 20 05:17:57 2008 +0000
+++ b/src/undo.c	Sun Jan 20 10:33:56 2008 +0000
@@ -53,8 +53,12 @@
    an undo-boundary.  */
 Lisp_Object pending_boundary;
 
+/* Nonzero means do not record point in record_point.  */
+
+int undo_inhibit_record_point;
+
 /* Record point as it was at beginning of this command (if necessary)
-   And prepare the undo info for recording a change.
+   and prepare the undo info for recording a change.
    PT is the position of point that will naturally occur as a result of the
    undo record that will be added just after this command terminates.  */
 
@@ -64,6 +68,14 @@
 {
   int at_boundary;
 
+  /* Don't record position of pt when undo_inhibit_record_point holds.
+     Needed to avoid inserting a position record in buffer-undo-list
+     when last_point_position has not been set up correctly by
+     command_loop_1, for example, when running a repeat-repeat-char
+     event.  */
+  if (undo_inhibit_record_point)
+    return;
+
   /* Allocate a cons cell to be the undo boundary after this command.  */
   if (NILP (pending_boundary))
     pending_boundary = Fcons (Qnil, Qnil);
@@ -719,6 +731,10 @@
 Garbage collection is inhibited around the call to this function,
 so it must make sure not to do a lot of consing.  */);
   Vundo_outer_limit_function = Qnil;
+
+  DEFVAR_BOOL ("undo-inhibit-record-point", &undo_inhibit_record_point,
+	       doc: /* Non-nil means do not record `point' in `buffer-undo-list'.  */);
+  undo_inhibit_record_point = 0;
 }
 
 /* arch-tag: d546ee01-4aed-4ffb-bb8b-eefaae50d38a