From ed7b7bfdd7561cf63ac6d72de8928e4808346662 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 30 Aug 2010 20:39:04 +0200 Subject: [PATCH] Revert gnus-undo change. --- lisp/ChangeLog | 1 + lisp/gnus-undo.el | 3 --- 2 files changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9ab0d1ebb..402c25a9c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -2,6 +2,7 @@ * gnus-undo.el (gnus-undo-register-1): Limit the undo actions to 100 actions. + (gnus-undo-register-1): Revert last change. * gnus-group.el (gnus-group-completing-read): Protect against not having completion-styles bound. diff --git a/lisp/gnus-undo.el b/lisp/gnus-undo.el index 802ae63ca..d11b778f3 100644 --- a/lisp/gnus-undo.el +++ b/lisp/gnus-undo.el @@ -154,9 +154,6 @@ FORMS may use backtick quote syntax." ;; We are on a boundary, so we create a new action. (gnus-undo-boundary (push (list function) gnus-undo-actions) - ;; Don't let the undo actions grow infinitely. - (when (> (length gnus-undo-actions) 100) - (setcdr (nthcdr 100 gnus-undo-actions) nil)) (setq gnus-undo-boundary nil)) ;; Prepend the function to an old action. (gnus-undo-actions -- 2.25.1