# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1135922417 0
# Node ID 15149da0b974ac351971f13ccf022250863fd93b
# Parent  26c863f15f72976192f38a039ee625d4ef3bcda2
(cancel-change-group): Add listp around pending-undo-list.

diff -r 26c863f15f72 -r 15149da0b974 lisp/subr.el
--- a/lisp/subr.el	Fri Dec 30 05:59:16 2005 +0000
+++ b/lisp/subr.el	Fri Dec 30 06:00:17 2005 +0000
@@ -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)