diff options
| author | Juri Linkov | 2005-12-30 06:00:17 +0000 |
|---|---|---|
| committer | Juri Linkov | 2005-12-30 06:00:17 +0000 |
| commit | b2a20868eabc0218e9c5e5b62fa286eee2901ad8 (patch) | |
| tree | 64e12fea82304d2ab86f095d751b7da885d5a05b | |
| parent | 74f36ff05e066416c196b01e253f5652594879dd (diff) | |
| download | emacs-b2a20868eabc0218e9c5e5b62fa286eee2901ad8.tar.gz emacs-b2a20868eabc0218e9c5e5b62fa286eee2901ad8.zip | |
(cancel-change-group): Add listp around pending-undo-list.
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 1684 | (when (and (consp elt) (not (eq elt (last pending-undo-list)))) | 1684 | (when (and (consp elt) (not (eq elt (last pending-undo-list)))) |
| 1685 | (error "Undoing to some unrelated state")) | 1685 | (error "Undoing to some unrelated state")) |
| 1686 | ;; Undo it all. | 1686 | ;; Undo it all. |
| 1687 | (while pending-undo-list (undo-more 1)) | 1687 | (while (listp pending-undo-list) (undo-more 1)) |
| 1688 | ;; Reset the modified cons cell ELT to its original content. | 1688 | ;; Reset the modified cons cell ELT to its original content. |
| 1689 | (when (consp elt) | 1689 | (when (consp elt) |
| 1690 | (setcar elt old-car) | 1690 | (setcar elt old-car) |