[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/inspector 85577f62ff 3/4: Merge pull request #12 from m
From: |
ELPA Syncer |
Subject: |
[elpa] externals/inspector 85577f62ff 3/4: Merge pull request #12 from mjoerg/fix-indent |
Date: |
Sun, 8 Jan 2023 14:57:56 -0500 (EST) |
branch: externals/inspector
commit 85577f62ff8b054d818654f3a3390192d10e110f
Merge: 7cd3930b7b 82f2b5d894
Author: Mariano Montone <marianomontone@gmail.com>
Commit: GitHub <noreply@github.com>
Merge pull request #12 from mjoerg/fix-indent
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)