From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 13 May 2014 20:34:12 +0000 (-0400)
Subject: * lisp/simple.el (undo-make-selective-list): Obey undo-no-redo.
X-Git-Tag: emacs-25.0.90~2640^2~111
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=27a69ff0e846a72f6f37fd1155facd1232cce8ed;p=emacs.git

* lisp/simple.el (undo-make-selective-list): Obey undo-no-redo.
---

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  <monnier@iro.umontreal.ca>
+
+	* simple.el (undo-make-selective-list): Obey undo-no-redo.
+
 2014-05-12  Sam Steingold  <sds@gnu.org>
 
 	* 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)