From 27a69ff0e846a72f6f37fd1155facd1232cce8ed Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 13 May 2014 16:34:12 -0400 Subject: [PATCH] * lisp/simple.el (undo-make-selective-list): Obey undo-no-redo. --- lisp/ChangeLog | 4 ++++ lisp/simple.el | 3 +++ 2 files changed, 7 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0e6013a839c..cd2ce4e8749 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2014-05-13 Stefan Monnier + + * simple.el (undo-make-selective-list): Obey undo-no-redo. + 2014-05-12 Sam Steingold * calendar/time-date.el (seconds-to-string): New function to diff --git a/lisp/simple.el b/lisp/simple.el index 14843399869..af8e47c2383 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2437,6 +2437,9 @@ list can be applied to the current buffer." undo-deltas undo-elt) (while ulist + (when undo-no-redo + (while (gethash ulist undo-equiv-table) + (setq ulist (gethash ulist undo-equiv-table)))) (setq undo-elt (car ulist)) (cond ((null undo-elt) -- 2.39.5