Mercurial > hg > xemacs-beta

diff src/undo.c @ 223:2c611d1463a6 r20-4b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b10
author cvs
date Mon, 13 Aug 2007 10:10:54 +0200
parents d44af0c54775
children 558f606b08ae
line wrap: on
line diff
--- a/src/undo.c	Mon Aug 13 10:10:03 2007 +0200
+++ b/src/undo.c	Mon Aug 13 10:10:54 2007 +0200
@@ -431,7 +431,8 @@
 #ifdef CLASH_DETECTION
 		  Funlock_buffer ();
 #endif /* CLASH_DETECTION */
-		  Fset_buffer_modified_p (Qnil, Fcurrent_buffer ()); /* may GC under ENERGIZE */
+		  /* may GC under ENERGIZE: */
+		  Fset_buffer_modified_p (Qnil, Qnil);
 		}
 	      else if (EXTENTP (car))
 		{
@@ -473,8 +474,8 @@
 		    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, Fcurrent_buffer ());
-		  Fdelete_region (car, cdr, Fcurrent_buffer ());
+		  Fgoto_char (car, Qnil);
+		  Fdelete_region (car, cdr, Qnil);
 		}
 	      else if (STRINGP (car) && INTP (cdr))
 		{