mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(atomic-change-group): Prevent undo list truncation.

Browse source
This commit is contained in:
Richard M. Stallman 2008-01-11 14:44:15 +00:00
parent 07b312cf3c
commit cf1917060a
2 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2008-01-11 Richard Stallman <rms@gnu.org>
* subr.el (atomic-change-group): Prevent undo list truncation.
2008-01-11 Martin Rudalics <rudalics@gmx.at>
* cus-start.el (all): Add missing version entries.

4
lisp/subr.el
View file

@ -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