Mercurial > emacs

changeset 1320:c45c4e0cae7d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fprimitive_undo): When undoing an insert, move point and then delete.
author Richard M. Stallman <rms@gnu.org>
date Sat, 03 Oct 1992 02:12:40 +0000
parents 20862b54b932
children b56c2c450d49
files src/undo.c
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/undo.c	Sat Oct 03 01:09:59 1992 +0000
+++ b/src/undo.c	Sat Oct 03 02:12:40 1992 +0000
@@ -306,8 +306,10 @@
 		  if (XINT (car) < BEGV
 		      || XINT (cdr) > ZV)
 		    error ("Changes to be undone are outside visible portion of buffer");
+		  /* 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);
-		  Fgoto_char (car);
 		}
 	      else if (XTYPE (car) == Lisp_String && XTYPE (cdr) == Lisp_Int)
 		{