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

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Stefan Monnier <monnier>        08/02/04 15:29:45

Index: subr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/subr.el,v
retrieving revision 1.554.2.9
retrieving revision 1.554.2.10
diff -u -b -r1.554.2.9 -r1.554.2.10
--- subr.el     11 Jan 2008 14:43:10 -0000      1.554.2.9
+++ subr.el     4 Feb 2008 15:29:44 -0000       1.554.2.10
@@ -1871,6 +1871,7 @@
 (defun cancel-change-group (handle)
   "Finish a change group made with `prepare-change-group' (which see).
 This finishes the change group by reverting all of its changes."
+  (save-excursion
   (dolist (elt handle)
     (with-current-buffer (car elt)
       (setq elt (cdr elt))
@@ -1892,7 +1893,7 @@
          (setcar elt old-car)
          (setcdr elt old-cdr))
        ;; Revert the undo info to what it was when we grabbed the state.
-       (setq buffer-undo-list elt)))))
+          (setq buffer-undo-list elt))))))
 
 ;;;; Display-related functions.