diff options
author | Richard M. Stallman <rms@gnu.org> | 2008-01-11 14:44:15 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2008-01-11 14:44:15 +0000 |
commit | cf1917060aa30a20ef40aa296497c4a4ebeeb9f1 (patch) | |
tree | c7424f1854c0079e1207b8344a4093440b48de9e /lisp/subr.el | |
parent | 07b312cf3c2e26482d1f5cf4d2c0d57d762f78fd (diff) | |
download | emacs-cf1917060aa30a20ef40aa296497c4a4ebeeb9f1.tar.gz |
(atomic-change-group): Prevent undo list truncation.
Diffstat (limited to 'lisp/subr.el')
-rw-r--r-- | lisp/subr.el | 4 |
1 files changed, 4 insertions, 0 deletions
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 |