[elpa] externals/inspector 236ef196a0 24/39: tree-inspector: fixes

[ELPA Syncer]

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

    tree-inspector: fixes
---
 tree-inspector.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/tree-inspector.el b/tree-inspector.el
index 6587b03604..45817fa622 100644
--- a/tree-inspector.el
+++ b/tree-inspector.el
@@ -398,7 +398,15 @@ in a format understood by `kbd'.  Commands a names of Lisp 
functions."
   "tree-inspector for windows."
   (let ((node (treeview-new-node)))
     (treeview-set-node-name node (prin1-to-string object))
-    (treeview-set-node-prop node 'object object)))
+    (treeview-set-node-prop node 'object object)
+    node))
+
+;; (tree-inspector-inspect (get-buffer-window (current-buffer)))
+
+(cl-defmethod tree-inspector--make-node ((object marker))
+  (let ((node (treeview-new-node)))
+    (treeview-set-node-name node (prin1-to-string object))
+    node))
 
 (cl-defmethod tree-inspector--node-children ((object window))
   (list (tree-inspector--make-node (window-parent object))