[Emacs-diffs] Changes to emacs/lisp/subr.el,v [EMACS_22_BASE]

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Richard M. Stallman <rms>       08/01/11 14:43:10

Index: subr.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/subr.el,v
retrieving revision 1.554.2.8
retrieving revision 1.554.2.9
diff -u -b -r1.554.2.8 -r1.554.2.9
--- subr.el     7 Jan 2008 02:44:14 -0000       1.554.2.8
+++ subr.el     11 Jan 2008 14:43:10 -0000      1.554.2.9
@@ -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