mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Juri Linkov 2005-12-30 06:00:17 +00:00
parent 74f36ff05e
commit b2a20868ea
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/subr.el
View file

@ -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)