(undo): Fix previous change.

2 files changed, 8 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a525f67499d..e91a9adf10f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-04-13  Richard M. Stallman  <rms@gnu.org>
+
+        * simple.el (undo): Fix previous change.
+
+        * custom.el (defface): Doc fix.
+
 2005-04-13  Lute Kamstra  <lute@gnu.org>
 
         * 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  <monnier@iro.umontreal.ca>
+2005-04-11  JUAN-LEON Lahoz Garcia  <juanleon1@gmail.com>
 
         * wdired.el: Doc fixes.
         (wdired-confirm-overwrite): Rename from wdired-is-ok-overwrite.
diff --git a/lisp/simple.el b/lisp/simple.el
index 1bb090071eb..3b3a3acb466 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)))