[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:31:10

Index: subr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/subr.el,v
retrieving revision 1.554.2.10
retrieving revision 1.554.2.11
diff -u -b -r1.554.2.10 -r1.554.2.11
--- subr.el     4 Feb 2008 15:29:44 -0000       1.554.2.10
+++ subr.el     4 Feb 2008 15:31:09 -0000       1.554.2.11
@@ -1871,7 +1871,6 @@
 (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))
@@ -1887,13 +1886,14 @@
           (when (and (consp elt) (not (eq elt (last pending-undo-list))))
             (error "Undoing to some unrelated state"))
           ;; Undo it all.
-          (while (listp pending-undo-list) (undo-more 1))
+        (save-excursion
+          (while (listp pending-undo-list) (undo-more 1)))
           ;; Reset the modified cons cell ELT to its original content.
           (when (consp elt)
             (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.