# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1113413995 0
# Node ID 34b31319dc9b284e82cf6ca699845b0c64228dd8
# Parent  a4f9ea538274e136444bb5997dec709cfa451d0a
(undo): Fix previous change.

diff -r a4f9ea538274 -r 34b31319dc9b lisp/simple.el
--- a/lisp/simple.el	Wed Apr 13 17:39:00 2005 +0000
+++ b/lisp/simple.el	Wed Apr 13 17:39:55 2005 +0000
@@ -1341,7 +1341,7 @@
 	  (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)))