[elpa] externals/undo-tree 3090c4f 185/195: Temporarily increase max-lisp-eval-depth and max-specpdl-size when copying undo-trees.

[Stefan Monnier]

branch: externals/undo-tree
commit 3090c4f4a7650446db977892112e44d933a3e077
Author: Toby S. Cubitt <toby-undo-tree@dr-qubit.org>
Commit: Toby S. Cubitt <toby-undo-tree@dr-qubit.org>

    Temporarily increase max-lisp-eval-depth and max-specpdl-size when copying 
undo-trees.
---
 undo-tree.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/undo-tree.el b/undo-tree.el
index 2c23e2b..0e11658 100644
--- a/undo-tree.el
+++ b/undo-tree.el
@@ -1348,9 +1348,11 @@ in visualizer."
   (unwind-protect
       (let ((new (make-undo-tree)))
        (undo-tree-decircle tree)
-       (setf (undo-tree-root new)
-             (copy-undo-tree-node (undo-tree-root tree)
-                                  new (undo-tree-current tree)))
+       (let ((max-lisp-eval-depth (* 100 (undo-tree-count tree)))
+             (max-specpdl-size (* 100 (undo-tree-count tree))))
+         (setf (undo-tree-root new)
+               (copy-undo-tree-node (undo-tree-root tree)
+                                    new (undo-tree-current tree))))
        (setf (undo-tree-size new)
              (undo-tree-size tree))
        (setf (undo-tree-count new)