(undo): Fix previous change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a525f67499d33f6bbf1e94d1a4c792250b45af79..e91a9adf10fccbf599f6d73e367ec055182d4875 100644 (file)
--- 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 1bb090071eb0825c1213b386c0e9508dc0ccd72f..3b3a3acb466e0f1008393dd9e4cb71dd1b7bd6f8 100644 (file)
--- 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)))