[elpa] externals/undo-tree 486964c 014/195: Centre undo-tree in visualizer.

[Stefan Monnier]

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

    Centre undo-tree in visualizer.
---
 undo-tree.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/undo-tree.el b/undo-tree.el
index 9feace5..56557d0 100644
--- a/undo-tree.el
+++ b/undo-tree.el
@@ -475,8 +475,9 @@ using `undo-tree-redo'."
     (undo-tree-move-down 1)  ; top margin
     (undo-tree-compute-widths undo-tree)
     (undo-tree-move-forward
-     (+ (undo-tree-node-char-lwidth (undo-tree-root undo-tree))
-       2))  ; left margin
+     (max (/ (window-width) 2)
+         (+ (undo-tree-node-char-lwidth (undo-tree-root undo-tree))
+            2)))  ; left margin
     ;; draw undo-tree
     (let ((undo-tree-insert-face 'undo-tree-visualizer-default-face))
       (save-excursion (undo-tree-draw-subtree (undo-tree-root undo-tree))))