[elpa] externals/inspector cc661085b1 34/39: Adjustments

[ELPA Syncer]

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

    Adjustments
---
 tree-inspector.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/tree-inspector.el b/tree-inspector.el
index 80a4029018..7395effebe 100644
--- a/tree-inspector.el
+++ b/tree-inspector.el
@@ -34,17 +34,19 @@
 ;;---------- Settings --------------------------------------------------------
 
 (defgroup tree-inspector nil
-  "tree-inspector"
+  "Customizations for tree-inspector."
   :group 'applications)
 
-(defun tree-inspector-inspect-object-at-event (event)
+(defun tree-inspector--inspect-object-at-event (event)
+  "Command to run as response for EVENT on tree-inspector object's label."
   (interactive "@e")
   (when (featurep 'inspector)
     (let ((node (treeview-get-node-at-event event)))
       (when-let ((object (treeview-get-node-prop node 'object)))
         (inspector-inspect object)))))
 
-(defun tree-inspector-inspect-object-at-point ()
+(defun tree-inspector--inspect-object-at-point ()
+  "Command to run for inspecting the object at point in tree-inspector."
   (interactive)
   (when (featurep 'inspector)
     (let ((node (treeview-get-node-at-pos (point))))
@@ -65,10 +67,10 @@ in a format understood by `kbd'.  Commands a names of Lisp 
functions."
   :type '(repeat (cons (string :tag "Key    ") (function :tag "Command"))))
 
 (defcustom tree-inspector-label-keymap
-  '(("<mouse-1>" . tree-inspector-inspect-object-at-event)
-    ("<mouse-2>" . tree-inspector-inspect-object-at-event)
+  '(("<mouse-1>" . tree-inspector--inspect-object-at-event)
+    ("<mouse-2>" . tree-inspector--inspect-object-at-event)
     ("<mouse-3>" . tree-inspector-popup-node-menu-at-mouse)
-    ("RET" . tree-inspector-inspect-object-at-point)
+    ("RET" . tree-inspector--inspect-object-at-point)
     ("e" . tree-inspector-popup-node-menu-at-point)
     ("<C-down-mouse-1>" . ignore)
     ("<C-mouse-1>" . treeview-toggle-select-node-at-event)