[elpa] externals/inspector 1ea746c8e0 27/39: tree-inspector: better window inspector

[ELPA Syncer]

branch: externals/inspector
commit 1ea746c8e0f88307bc9cb07bfba44e61bb20fb45
Author: Mariano Montone <marianomontone@gmail.com>
Commit: Mariano Montone <marianomontone@gmail.com>

    tree-inspector: better window inspector
---
 tree-inspector.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tree-inspector.el b/tree-inspector.el
index 756c1f9bc4..a9c47bc82e 100644
--- a/tree-inspector.el
+++ b/tree-inspector.el
@@ -433,7 +433,10 @@ in a format understood by `kbd'.  Commands a names of Lisp 
functions."
     node))
 
 (cl-defmethod tree-inspector--node-children ((object window))
-  (list (tree-inspector--make-node (window-parent object))
+  (list (let ((parent (tree-inspector--make-node (window-parent object))))
+         (treeview-set-node-name
+          parent (format "parent: %s" (treeview-get-node-name parent)))
+         parent)
        (tree-inspector--make-node (window-buffer object))
        (tree-inspector--make-node (window-frame object))
        (tree-inspector--make-node (window-parameters object))))