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

[Juri Linkov]

Index: emacs/lisp/subr.el
diff -u emacs/lisp/subr.el:1.492 emacs/lisp/subr.el:1.493
--- emacs/lisp/subr.el:1.492    Fri Dec 30 02:59:47 2005
+++ emacs/lisp/subr.el  Fri Dec 30 06:00:17 2005
@@ -1684,7 +1684,7 @@
        (when (and (consp elt) (not (eq elt (last pending-undo-list))))
          (error "Undoing to some unrelated state"))
        ;; Undo it all.
-       (while pending-undo-list (undo-more 1))
+       (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)