From 0047373b7dbbf47d03c685700da366c5a686a275 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 13 Apr 2005 17:40:53 +0000 Subject: [PATCH] (undo): Fix previous change. --- lisp/ChangeLog | 8 +++++++- lisp/simple.el | 2 +- 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 + + * simple.el (undo): Fix previous change. + + * custom.el (defface): Doc fix. + 2005-04-13 Lute Kamstra * 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 +2005-04-11 JUAN-LEON Lahoz Garcia * 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))) -- 2.39.2