(Fprimitive_undo): When undoing an insert, move point and then delete.

f28f04cc · Richard M. Stallman · 45288343 · f28f04cc
Commit f28f04cc authored Oct 03, 1992 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

src/undo.c src/undo.c +3 -1

No files found.
--- a/src/undo.c
+++ b/src/undo.c
@@ -306,8 +306,10 @@ Return what remains of the list.")
 		  if (XINT (car) < BEGV
 		      || XINT (cdr) > ZV)
 		    error ("Changes to be undone are outside visible portion of buffer");
-		  Fdelete_region (car, cdr);
+		  /* Set point first thing, so that undoing this undo
+		     does not send point back to where it is now.  */
 		  Fgoto_char (car);
+		  Fdelete_region (car, cdr);
 		}
 	      else if (XTYPE (car) == Lisp_String && XTYPE (cdr) == Lisp_Int)
 		{