[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/inspector 82f2b5d894 2/4: use tree-inspector-indent-las
From: |
ELPA Syncer |
Subject: |
[elpa] externals/inspector 82f2b5d894 2/4: use tree-inspector-indent-last-unit in tree-inspector--get-indent |
Date: |
Sun, 8 Jan 2023 14:57:56 -0500 (EST) |
branch: externals/inspector
commit 82f2b5d894094db1a1d48c1793a90c7541f107b4
Author: Martin Joerg <martin.joerg@gmail.com>
Commit: Martin Joerg <martin.joerg@gmail.com>
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)