branch: externals/inspector
commit 236ef196a047f6ceb709e8c51c3bb37f91b8bcf3
Author: Mariano Montone <marianomont...@gmail.com>
Commit: Mariano Montone <marianomont...@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))
