diff options
-rw-r--r-- | lisp/ChangeLog | 8 | ||||
-rw-r--r-- | lisp/simple.el | 2 |
2 files changed, 8 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a525f67499..e91a9adf10 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-04-13 Richard M. Stallman <[email protected]> + + * simple.el (undo): Fix previous change. + + * custom.el (defface): Doc fix. + 2005-04-13 Lute Kamstra <[email protected]> * Makefile.in (DONTCOMPILE): Remove list. @@ -133,7 +139,7 @@ * dnd.el (dnd-protocol-alist): New file with generic DND functions. -2005-04-11 Stefan Monnier <[email protected]> +2005-04-11 JUAN-LEON Lahoz Garcia <[email protected]> * wdired.el: Doc fixes. (wdired-confirm-overwrite): Rename from wdired-is-ok-overwrite. diff --git a/lisp/simple.el b/lisp/simple.el index 1bb090071e..3b3a3acb46 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1341,7 +1341,7 @@ as an argument limits undo to changes within the current region." (message (if undo-in-region (if equiv "Redo in region!" "Undo in region!") (if equiv "Redo!" "Undo!")))) - (when (and (listp equiv) undo-no-redo) + (when (and (consp equiv) undo-no-redo) ;; The equiv entry might point to another redo record if we have done ;; undo-redo-undo-redo-... so skip to the very last equiv. (while (let ((next (gethash equiv undo-equiv-table))) |