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

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     08/02/24 10:09:07

Index: lisp/subr.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/subr.el,v
retrieving revision 1.578
retrieving revision 1.579
diff -u -b -r1.578 -r1.579
--- lisp/subr.el        21 Feb 2008 08:12:31 -0000      1.578
+++ lisp/subr.el        24 Feb 2008 10:08:57 -0000      1.579
@@ -1955,7 +1955,8 @@
        (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)