Mercurial > emacs

changeset 79824:e9adfbf7d96e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(atomic-change-group): Prevent undo list truncation.
author Richard M. Stallman <rms@gnu.org>
date Fri, 11 Jan 2008 14:43:10 +0000
parents 7e5390027372
children 9ccfdd7f6adb
files lisp/subr.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/subr.el	Fri Jan 11 14:23:39 2008 +0000
+++ b/lisp/subr.el	Fri Jan 11 14:43:10 2008 +0000
@@ -1802,6 +1802,10 @@
   (let ((handle (make-symbol "--change-group-handle--"))
 	(success (make-symbol "--change-group-success--")))
     `(let ((,handle (prepare-change-group))
+	   ;; Don't truncate any undo data in the middle of this.
+	   (undo-outer-limit nil)
+	   (undo-limit most-positive-fixnum)
+	   (undo-strong-limit most-positive-fixnum)
 	   (,success nil))
        (unwind-protect
 	   (progn