Mercurial > emacs
changeset 67917:15149da0b974
(cancel-change-group): Add listp around pending-undo-list.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Fri, 30 Dec 2005 06:00:17 +0000 |
| parents | 26c863f15f72 |
| children | c14267a3323d |
| files | lisp/subr.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)