[nongnu] elpa/treeview 3130757444 05/25: Added new function treeview-call-for-node-at-point

[ELPA Syncer]

branch: elpa/treeview
commit 3130757444c0cdd7423c01a471dabedbf82083ca
Author: Tilman Rassy <tilman.rassy@googlemail.com>
Commit: Tilman Rassy <tilman.rassy@googlemail.com>

    Added new function treeview-call-for-node-at-point
---
 treeview.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/treeview.el b/treeview.el
index d3010b0613..4b9b83cbb2 100644
--- a/treeview.el
+++ b/treeview.el
@@ -743,7 +743,7 @@ after this cons cell.  NODE is also displayed if the parent 
is expanded."
 (defun treeview-add-child-at-front (parent node)
   "Insert NODE at the beginning of the children of PARENT.
 Thus, NODE becomes the new first child of PARENT. NODE is also displayed if
-PARENT is expanded.."
+PARENT is expanded."
   (let ( (read-only-p buffer-read-only)
          (children (treeview-get-node-children parent)) )
     (setq children (cons node children))
@@ -891,6 +891,13 @@ See also `treeview-toggle-node-state'."
           (offset (/ (- end start) 2)) )
     (+ start offset)))
 
+(defun treeview-call-for-node-at-point (action-function)
+  "Call ACTION-FUNCTION with the node at point as argument.
+ACTION-FUNCTION is the symbol of the function.  If there is no node at point,
+does nothing."
+  (let ( (node (treeview-get-node-at-pos (point))) )
+    (when node (funcall action-function node))))
+
 (defvar treeview-suggest-point-pos-in-control-function 
'treeview-get-overlay-center
   "Function to suggest an appropriate position for the point in a node control.
 Called with one argument, the control overlay.  Auxiliary for implementing