[Emacs-diffs] trunk r117097: * lisp/simple.el (undo-make-selective-list): Obey undo-no-redo.

[Stefan Monnier]

------------------------------------------------------------
revno: 117097
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2014-05-13 16:34:12 -0400
message:
  * lisp/simple.el (undo-make-selective-list): Obey undo-no-redo.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/simple.el                 simple.el-20091113204419-o5vbwnq5f7feedwu-403

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-05-12 16:14:24 +0000
+++ b/lisp/ChangeLog    2014-05-13 20:34:12 +0000
@@ -1,3 +1,7 @@
+2014-05-13  Stefan Monnier  <address@hidden>
+
+       * simple.el (undo-make-selective-list): Obey undo-no-redo.
+
 2014-05-12  Sam Steingold  <address@hidden>
 
        * calendar/time-date.el (seconds-to-string): New function to

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2014-05-01 23:25:28 +0000
+++ b/lisp/simple.el    2014-05-13 20:34:12 +0000
@@ -2437,6 +2437,9 @@
         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)