From b2a20868eabc0218e9c5e5b62fa286eee2901ad8 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Fri, 30 Dec 2005 06:00:17 +0000 Subject: [PATCH] (cancel-change-group): Add listp around pending-undo-list. --- lisp/subr.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.5