[elpa] externals/undo-tree aaa4c6d 012/195: Don't create new marker each time we draw a node.

[Stefan Monnier]

branch: externals/undo-tree
commit aaa4c6dd1bf96920756ab2e3d389d78bf43d6918
Author: tsc25 <tsc25@cantab.net>
Commit: tsc25 <tsc25@cantab.net>

    Don't create new marker each time we draw a node.
    Added missing active-branch argument to one recursive 
undo-tree-draw-subtree call.
---
 undo-tree.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/undo-tree.el b/undo-tree.el
index ef1235e..39e314b 100644
--- a/undo-tree.el
+++ b/undo-tree.el
@@ -489,7 +489,9 @@ using `undo-tree-redo'."
     ;; draw node itself
     (undo-tree-insert ?o)
     (backward-char 1)
-    (move-marker (setf (undo-tree-node-marker node) (make-marker)) (point))
+    (unless (markerp (undo-tree-node-marker node))
+      (setf (undo-tree-node-marker node) (make-marker)))
+    (move-marker (undo-tree-node-marker node) (point))
 
     (cond
      ;; if we're at a leaf node, we're done
@@ -506,7 +508,7 @@ using `undo-tree-redo'."
       (undo-tree-insert ?|)
       (backward-char 1)
       (undo-tree-move-down 1)
-      (undo-tree-draw-subtree (car (undo-tree-node-next node))))
+      (undo-tree-draw-subtree (car (undo-tree-node-next node)) active-branch))
 
      ;; if node had multiple children, draw branches
      (t