[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/subr.el,v [EMACS_22_BASE]
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/subr.el,v [EMACS_22_BASE] |
Date: |
Mon, 04 Feb 2008 15:31:10 +0000 |
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.