From cf1917060aa30a20ef40aa296497c4a4ebeeb9f1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 11 Jan 2008 14:44:15 +0000 Subject: [PATCH] (atomic-change-group): Prevent undo list truncation. --- lisp/ChangeLog | 4 ++++ lisp/subr.el | 4 ++++ 2 files changed, 8 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3b5a19197bc..69f537f916c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-01-11 Richard Stallman + + * subr.el (atomic-change-group): Prevent undo list truncation. + 2008-01-11 Martin Rudalics * cus-start.el (all): Add missing version entries. diff --git a/lisp/subr.el b/lisp/subr.el index a9674bbba36..b4bd4a0150c 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1802,6 +1802,10 @@ user can undo the change normally." (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 -- 2.39.5