From: Juri Linkov <juri@jurta.org>
Date: Fri, 30 Dec 2005 06:00:17 +0000 (+0000)
Subject: (cancel-change-group): Add listp around pending-undo-list.
X-Git-Tag: emacs-pretest-22.0.90~4980
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b2a20868eabc0218e9c5e5b62fa286eee2901ad8;p=emacs.git

(cancel-change-group): Add listp around pending-undo-list.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index d7512a36ac2..ac917a10550 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1684,7 +1684,7 @@ This finishes the change group by reverting all of its changes."
 	(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)