branch: externals/inspector
commit 82f2b5d894094db1a1d48c1793a90c7541f107b4
Author: Martin Joerg <[email protected]>
Commit: Martin Joerg <[email protected]>
use tree-inspector-indent-last-unit in tree-inspector--get-indent
---
tree-inspector.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/tree-inspector.el b/tree-inspector.el
index f20433663e..fd0ae36b04 100644
--- a/tree-inspector.el
+++ b/tree-inspector.el
@@ -172,8 +172,11 @@ in a format understood by `kbd'. Commands a names of Lisp
functions."
(let ((indent ())
(parent nil))
(while (setq parent (treeview-get-node-parent node))
- (setq indent (cons tree-inspector-indent-unit indent)
- node parent))
+ (push (if (treeview-last-child-p parent)
+ tree-inspector-indent-last-unit
+ tree-inspector-indent-unit)
+ indent)
+ (setq node parent))
indent))
(defun tree-inspector--new-node (object)
